Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath(db) &" "
SQL = "SELECT namn,epost FROM anvandare " & _
" WHERE Namn = '"&replace(Request.Form("username"),"'","''") & "'" & _
" or epost = '" & replace(Request.form("epost"),"'","''") & "'"
set Recset = connect.execute(sql)
If Not RecSet.Eof Then
if recset("namn") = Request.Form("username") then
Session("fel") = "Användarnamnet är upptaget"
else
Session("fel") = "Adressen är upptagen"
End If
recset.close
connect.close
response.redirect "r1.asp"
end if
SQL = "Insert ... "
connect.execute sql,,128
Trådstart#1
Hej
Jag har:
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath(db) &" "
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM anvandare WHERE Namn = '"&Request.Form("username")&"' "
RecSet.Open SQL, Connect, 3,3
If Not RecSet.Eof Then
Session("fel") = "Användarnamnet är upptaget"
Response.Redirect("r1.asp")
End If
SQL = "Select * From anvandare"
RecSet.AddNew
RecSet("namn") = Request.Form("username")
...
För att kolla om ett användarnamn finns. Men hur gör jag för att kolla så att det inte redan finns den eposten och om den finns så ska det hända samma sak som med användarnamnet fast med ett annat session fel.
