db-connection

Hvad står der i linie 11 i frameld.asp?

Hvad med
***************************
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
strSQL = "DELETE FROM ABONNENT WHERE ABO_EMAIL = " & Request.Form(email)"
Conn.execute(strSQL)
***************************

***************************
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
MAIL = Request.Form("email")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../databaser/nyhedsbreve.mdb")
strSQL = "DELETE FROM ABONNENT WHERE ABO_EMAIL = " & MAIL & ""
set rs = Conn.execute(strSQL)
End If
***************************

Du mangler sikkert denne linie øverst i koden.

<% @ Language=JScript%>

Den skal altid være allerførste linie i kode der skives i JScript

Error Type:
Active Server Pages, ASP 0221 (0x80004005)
The specified 'dim strConnMail strConnMail = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../databaser/nyhedsbreve.mdb") ' option is unknown or invalid.
/sharedanmark/test/mail/frameld.asp, line 3


<% @ Language=JScript

dim strConnMail
strConnMail = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../databaser/nyhedsbreve.mdb")
%>

<head>
<meta http-equiv="Content-Language" content="da">
</head>

<body background="../billeder/bgfirkant.gif">

<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
MAIL = Request.Form("email")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../databaser/nyhedsbreve.mdb")
strSQL = "DELETE FROM ABONNENT WHERE ABO_EMAIL = " & MAIL & ""
set rs = Conn.execute(strSQL)
End If

%>

</body>
</html>

UPS - disse linier skulle ikke med:

dim strConnMail
strConnMail = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../databaser/nyhedsbreve.mdb")

Men nu siger den:
Expected '('
/mail/frameld.asp, line 12, column 3
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
--^

Du skal lige blive enig med dig selv om du vil bruge JScript eller VBScript. Man kan ikke blande det.

Enten skal du anvende den kode du viser i spørgsmålet og tilføje den linie jeg har givet dig. <% @ Language=JScript%> Husk begge <% %> i samme linie. Koden ser ud til at være ok.

ELLER du skal fjerne min linie og anvende den kode som ezolu har givet dig. Det ser ud som om det er den du arbejder på. ?

zeus > Du skal ikke have både din og min kode med :o) I øvrigt er det dumt at blande VBScript og JScript - du må beslutte dig for hvilken du vil bruge.

Ok, så vælger jeg VBScript.

Jeg har nu forsimplet kode, for i første omgang at få det til at virke:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../databaser/nyhedsbreve.mdb")
strSQL = "DELETE FROM ABONNENT WHERE ABO_EMAIL = " & Request.Form("email") & ""
set rs = Conn.execute(strSQL)
%>

FEJL:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'ABO_EMAIL = min@emailadresse.dk'.

PS. min@emailadresse.dk findes i min database.

det er fordi der skal ' rundt om tekst > Request.Form('email') i stedet for Request.Form("email")

Det ved ezolu med sikkerhed. Han ved alt om plinger. :-)

Syntax error
strSQL = "DELETE FROM ABONNENT WHERE ABO_EMAIL = " & Request.Form('email') & ""
-----------------------------------------------------------------^

Hov ezolu - det var det forkerte sted. linien skal se således ud.

strSQL = "DELETE FROM ABONNENT WHERE ABO_EMAIL = '" & Request.Form("email") & "'"

[Pilen skulle altså have stoppet ved ('email'), for det er her fejlen findes - tror jeg]

coltau > Jeg kunne sgu heller ikke lade være med at grine lidt da jeg skrev det :o)

coltau > Ja for fanden!!

Det spiller. Mange tak for hjælp - min første databaseforbindelse kører nu! :-)

Et godt råd. De fleste fejl med SQL-sætninger er næsten altid syntaxfejl på grund af manglende plinger.

Det vil jeg huske :-)