Mailinglisten-Archive |
hilfe..
wir haben my-sql3.23.25-beta und greifen darauf über myODBC aus einem
ASP-script zu, daß auf nem MS-IIS läuft.
ausserdem das gleiche auf ms-sql.
die skripte laufen mit ms ohne probleme, my-sql kann nicht auf
recordsets zugreifen...
fehlermeldung:
error '80020009'
Exception occurred.
/intern/mitgliederverwaltung/Mitglieder2.asp, line 1
Kann dazu vielleicht jemand helfen?
Habe mal einen Teil des Skripts unten angefügt...
Danke,
Philipp
quelltext:
<%
SET Verbindung = Server.CreateObject ("ADODB.Connection")
Verbindung.Open "UwF-Mitglieder"
SET RSMitglieder = Server.CreateObject("ADODB.RecordSet")
Stmt="SELECT mitglied_id, name, vorname, titel, emeritus_datum, genus,
einrichtung, ext_adresse, anrede_titel, d_tel, d_fax, p_tel, p_fax, url,
email, alt_email, alt_beitrag, eintritt_anfrage FROM Mitglieder ORDER BY name"
RSMitglieder.Open Stmt, Verbindung, adOpenDynamic
SET RSEinrichtung = Server.CreateObject("ADODB.RecordSet")
Stmt="SELECT einrichtung_id, name, kennziffer, url FROM Einrichtung
ORDER BY name"
RSEinrichtung.Open Stmt, Verbindung
SET RSExtAdr = Server.CreateObject("ADODB.RecordSet")
Stmt="SELECT ext_adresse_id, name, strasse, hausnummer, plz, stadt,
url FROM EXT_ADRESSE"
RSExtAdr.Open Stmt, Verbindung
SET RSFb = Server.CreateObject("ADODB.RecordSet")
Stmt="SELECT fb_id, name, beitrag FROM Fachbereich ORDER BY fb_id"
RSFb.Open Stmt, Verbindung
IF Request.QueryString("aktion")="s" THEN
Stmt="UPDATE RSMitglieder SET name=" + Request.Form("m-name") + ",
vorname=" + Request.Form("m-vorname") + ", titel=" +
Request.Form("m-titel") + ", emeritus_datum=" +
Request.Form("m-emeritus") + ", genus=" + Request.Form("m-genus") + ",
einrichtung=" + Request.Form("m-einrichtung") + ", anrede_titel=" +
Request.Form("m-titel") + ", d_tel=" + Request.Form("m-d-tel") + ",
d_fax=" + Request.Form("m-d-fax") + ", p_tel=" + Request.Form("m-p-tel")
+ ", p_fax=" + Request.Form("m-p-fax") + ", url=" +Request.Form("m-url")
+ ", email=" + Request.Form("m-email") + ", alt_email=" +
Request.Form("m-alt-email") + ", alt_beitrag=" +
Request.Form("m-alt-beitrag") + ", eintritt_anfrage=" +
Request.Form("m-anfrage") + " WHERE mitglied_id=" + Request.Form("member")
Verbindung.Execute Stmt
%>
<html>
<head>
<meta http-equiv="content-type" content="text/html;charset=iso-8859-1">
<title>Mitglieder</title>
</head>
<body bgcolor="#ffffff">
<form method="post" action="mitglieder2.asp" name="form1">
<%
if NOT Request.QueryString("member") = "" then
RSMitglieder.MoveFirst
DO UNTIL (RSMitglieder.EOF OR (Trim(RSMitglieder("name"))=Request.QueryString("member")))
RSMitglieder.MoveNext
LOOP
if RSMitglieder.EOF then
RSMitglieder.MoveFirst
end if
end if
%>
<table>
<tr>
<td valign="top">
<table>
<tr>
<td width=75> <input type="radio" name="m-genus"<%IF
RSMitglieder("genus")="m" THEN%><!--HIER TRITT DER FEHLER AUF--> checked
<%END IF%>value="m">Herr</td>
<td><font face="Arial" size=1><b>Vorname</b></font><br><input
type="text" name="m-vorname" size=50 value="<%=RSMitglieder("vorname")%>"></td>
</tr>
---
*** Weitere Infos zur Mailingliste und MySQL unter http://www.4t2.com/mysql
php::bar PHP Wiki - Listenarchive