Fejl i script .
Hejsa.Når jeg kører følgende script:
<%
If Not Session("UserID") <> "" THEN
Response.redirect "MEDDELLELSER/ikke_logget_ind.htm"
End If
If request.querystring("action") = "Disconnect" THEN
Session.abandon
Response.redirect "MEDDELLELSER/ikke_logget_ind.htm"
End If
%>
<html>
<head>
<meta name="Generator" content="Stone's WebWriter 4">
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link rel="stylesheet" type="text/css" href="../STYLE/style.css">
<title>Send News - script</title>
</head>
<body background="../IMAGES/startile.gif" text="#FFC600" link="#FFC600" vlink="#FFC600" alink="#975386">
<br><br>
<div style="text-align:center">
<font>
<%
Server.ScriptTimeOut = 200
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../DATABASER/login.mdb")
Conn.Open DSN
strSQL = "Select * From Users Where News = 'Ja' & Where Mail_ok = 'Ja'"
Set rs = Conn.Execute(strSQL)
Do
Dim Mailer
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.CharSet = 2
Mailer.FromName = "xxx"
Mailer.FromAddress= "webmaster@xxx.dk"
Mailer.RemoteHost = "smtp.unoeuro.com"
Mailer.AddRecipient rs("FirstName") & " " & rs("LastName"), rs("Mail")
Mailer.Subject = Request.Form ("subject")
Mailer.BodyText = "Hej" & " " & rs("FirstName") & " " & rs("LastName") & vbcrlf & vbcrlf & Request.Form ("message") & vbcrlf & vbcrlf & vbcrlf & vbcrlf & "Du er tilmeldt Midt Om Natten's nyhedsbrev. Hvis dette er en fejl eller du ikke vil modtage nyheder fra os mere, skal du blot bruge dette link : " & "http://www.xxx.dk/ADMIN/del_mail.asp?email=" & rs("Mail")
' Send e-mail og skriv status
if Mailer.SendMail then
Response.Write "Nyhedsbrev sendt til : " & rs("Mail") & "<br>"
no = no + 1
else
Response.Write "Der skete en fejl: " & Mailer.Response
end if
Set Mailer = Nothing
rs.MoveNext
Loop While Not rs.EOF
' When messages have been sent to all the users, exit
Response.Write "<br>" & "<b>" & "Nyhedsbrev sendt til " & no & " bruger(e)." & "</b>"
%>
</font>
</div>
</body>
</html>
-------------------------------------------
...får jeg denne fejl:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'News = 'Ja' & Where Mail_ok = 'Ja''.
/ADMIN/send_news_script.asp, line 37
-------------------------------------------
Jeg kan ikke rigtigt se hvad der skulle være galt og jeg er ret sikker på at det har virket engang... Nogen der kan hjælpe mig??
