<%
if Request.Form("losen") = Request.Form("losen2") then
Set connection = server.createObject("adodb.connection")
connection.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/medlemmar.mdb") & ";"
namn = Request.Form("ID")
NamnEfter = Request.Form("NamnEfter")
Stad = Request.Form("Stad")
set rs = connection.execute("select 1 from medlemmar where namn = '" & namn & "'")
if rs.eof then
SQL = "INSERT INTO medlemmar (Namn, Losen, NamnEfter) VALUES ('" & namn &"','" & Request.Form("losen") &"','" & NamnEfter &"','" & Stad &"',')"
Connection.Execute SQL,,128
ok = true
else
session("galet") = namn & " är redan upptaget!"
ok = false
end if
rs.close
set rs = nothing
connection.close
set connection = nothing
if ok then
response.redirect "default.asp"
else
response.redirect "blimedlem.asp"
end if
else
session("galet") = "Du måste skriva lika lösen i båda fälten!"
Response.Redirect "blimedlem.asp"
end if
%>
Fel:
Microsoft OLE DB Provider for ODBC Drivers fel '80040e14'
[Microsoft][Drivrutin för ODBC Microsoft Access] Antalet värden i frågan och antalet målfält är olika.