Radera Ur databas?

1 svar · 185 visningar · startad av freddssite 3 juni 2001

freddssiteMedlem sedan maj 2001123 inlägg

Trådstart3 juni 2001 19:43#1

vad skall jag ändra för att det skall fungera?

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("db/mail.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")

AdGbook = "SELECT \* FROM mail"

RecSet.Open AdGbook, Connect, adOpenDynamic, adLockOptimistic

%\>

\<% if Request.Form("mail") = RecSet("mail") then %\>
\<% if Request.Form("psw") = RecSet("psw") then %\>

<%
RecSet.Delete
RecSet.Close %>

VideMedlem sedan dec. 19998 577 inlägg

3 juni 2001 19:47#2

Det där är inte hela koden va?

Testa detta:

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/mail.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")

AdGbook = "SELECT * FROM mail Where mail = '"&Request.Form("mail")&"' AND psw = '"&Request.Form("psw")&"'"

RecSet.Open AdGbook, Connect

If NOT RecSet.EOF then
RecSet.Delete
RecSet.Close
Else
Response.Write "Användaren fanns inte..."
End If
%>