Update af MySQL med brug af queryString går i fejl
Jeg forsøger at opdate nogle brugere ved hjælp af deres ID. Men den melder ved opdateringen...FORMULAREN:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=mydb3.surf-town.net;DATABASE=xxxx_xxxxx;UID=xxxx_xxxxx;PWD=xxxxxxxx;"
strSQL = "Select * From Brodre Where ID = " & Request.Querystring("ID")
Set rs = Conn.Execute(strSQL)
If RS.EOF Then
Response.Write "Der var ingen brodre i databasen"
Else
Do While NOT RS.EOF
%>
<form action="ret_bror2.asp" method="post">
<table>
<tr>
<td width="90px">Fornavn:</td>
<td width="165px"><input type="text" name="Fornavn" value="<%=RS("Fornavn")%>"><font color="#FF6600"> *</font></td>
<td>Efternavn:</td>
<td><input type="text" name="Efternavn" value="<%=RS("Efternavn")%>"><font color="#FF6600"> *</font></td>
</tr>
<tr>
<td>Adresse:</td>
<td><input type="text" name="Adresse" value="<%=RS("Adresse")%>"><font color="#FF6600"> *</font></td>
<td>Nr:</td>
<td><input type="text" name="Nr" value="<%=RS("Nr")%>"><font color="#FF6600"> *</font></td>
</tr>
<tr>
<td>Postnr:</td>
<td><input type="text" name="Postnr" value="<%=RS("Postnr")%>"><font color="#FF6600"> *</font></td>
<td>Bynavn:</td>
<td><input type="text" name="Bynavn" value="<%=RS("Bynavn")%>"><font color="#FF6600"> *</font></td>
</tr>
<tr>
<td>Fastnet:</td>
<td><input type="text" name="Fastnet" value="<%=RS("Fastnet")%>"></td>
<td>Mobil:</td>
<td><input type="text" name="Mobil" value="<%=RS("Mobil")%>"><font color="#FF6600"> *</font></td>
</tr>
<tr>
<td width="90px">Brugernavn:</td>
<td width="165px"><input type="text" name="brugernavn" value="<%=RS("brugernavn")%>"><font color="#FF6600"> *</font></td>
<td>Password:</td>
<td><input type="text" name="password" value="<%=RS("password")%>"><font color="#FF6600"> *</font></td>
</tr>
<tr>
<td width="90px">Email:</td>
<td width="165px"><input type="text" name="Email" value="<%=RS("Email")%>"><font color="#FF6600"> *</font></td>
<td>Godkendt:</td>
<td><select size=1 name="Godkendt" class=box1>
<option value="<%=RS("Godkendt")%>"><%=RS("Godkendt")%></option>
<option value="Ja">Ret til -> Ja </option>
<option value="Nej">Ret til -> Nej </option>
</select><font color="#FF6600"> *</font></td>
</tr>
<tr>
<td></td>
<td><input type="submit" value="Ret bror" onClick="return confirm('Er du sikker på at du vil rette denne bror?'); history.go()"></td>
</tr>
<tr>
<td colspan="2"><br><font size="2px"><i>Felter med <font color="#FF6600">*</font> <u>skal</u> være udfyldt</i></td></font>
</tr>
</table>
</form>
<%
RS.MoveNext
Loop
End If
Conn.Close
Set Conn = Nothing
%>
ret_bror2.asp:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=mydb3.surf-town.net;DATABASE=xxxx_xxxxxx;UID=xxxx_xxxx;PWD=xxxxxxx;"
strSQL = "Update Brodre set WHERE ID = ' & Request.Querystring('ID') ("
strSQL = strSQL & "brugernavn, "
strSQL = strSQL & "password, "
strSQL = strSQL & "Email, "
strSQL = strSQL & "Fornavn, "
strSQL = strSQL & "Efternavn, "
strSQL = strSQL & "Adresse, "
strSQL = strSQL & "Nr, "
strSQL = strSQL & "Postnr, "
strSQL = strSQL & "Bynavn, "
strSQL = strSQL & "Fastnet, "
strSQL = strSQL & "Godkendt, "
strSQL = strSQL & "Mobil) "
strSQL = strSQL & "values( "
strSQL = strSQL & "'" & request.form("brugernavn")& "', "
strSQL = strSQL & "'" & request.form("password")& "', "
strSQL = strSQL & "'" & request.form("Email")& "', "
strSQL = strSQL & "'" & request.form("Fornavn")& "', "
strSQL = strSQL & "'" & request.form("Efternavn")& "', "
strSQL = strSQL & "'" & request.form("Adresse")& "', "
strSQL = strSQL & "'" & request.form("Nr")& "', "
strSQL = strSQL & "'" & request.form("Postnr")& "', "
strSQL = strSQL & "'" & request.form("Bynavn")& "', "
strSQL = strSQL & "'" & request.form("Fastnet")& "', "
strSQL = strSQL & "'" & request.form("Godkendt")& "', "
strSQL = strSQL & "'" & request.form("Mobil")& "')"
' SQL sætning eksekveres
Conn.Execute(strSQL)
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
