rs.Update fel? [Arkiv]

M@rtin

2000-08-11, 11:09

Jag har problem med en sida där man lägger in medlemmar i en databas. Det verkar som att det är själva inläggningen det är fel på men jag vet inte vad som är fel. Felmeddelandet är "Fel i rad 62" och det blir man ju inte mycket klokare av.

Så här ser koden ut där felet borde ligga:

<% if Request.Form("user")<>"" then

anvandarnamn=Request.Form("user")
losenord=Request.Form("pass")
fornamn=Request.Form("fnamn")
efternamn=Request.Form("enamn")
email=Request.Form("email")
stad=Request.Form("stad")
intressen=Request.Form("intressen")
beskrivning=Request.Form("beskrivning")
hemsida=Request.Form("hemsida")
bild=Request.Form("bild")
datum=Request.Form("ar") & "-" & Request.Form("manad") & "-" & Request.Form("dag")

Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open ConString
SQL = "SELECT * From medlem WHERE anvandarnamn = '" & anvandarnamn & "'"
rs.Open SQL, MinCon, 1, 2
If Not rs.EOF Then
%>

<html>
<head>
</head>
<body bgcolor="orange">
<font face="verdana, helvetica, arial" size="2">
<table border="0" align="center">
<tr>
<td>*********</td>
<td><font face="verdana, helvetica, arial" size="1"><p>
Det finns redan en Administratör med detta användarnamn!
</td>
<td>******</td>
</tr>
</table>
</body>
</html>

<%
Else

rs.Close
SQL = "SELECT * From medlem WHERE 1=2"
rs.Open SQL, MinCon, 1, 2
rs.AddNew
rs("anvandarnamn")=namn
rs("losenord")=losenord
rs("fornamn")=fornamn
rs("efternamn")=efternamn
rs("email")=email
rs("stad")=stad
rs("intressen")=intressen
rs("beskrivning")=beskrivning
rs("hemsida")=hemsida
rs("bild")=bild
rs("datum")=datum
rs("level")=1
rs.Update ' Rad 62
rs.Close

%>

Hoppas det här hör till SQl annars kan ju moderatorn flyyta det till ASP.

//M@rtin

[Redigerat av M@rtin den 11 aug 2000]