Fejl på .asp side. Kan ikke kringle den! (VBScript)
Hej Eksperter, her er en hjemmeside, den melder fejl i linje 48.46 emailadr.movenext
47
48 end if
49 %>
50
51 <html><title>Opret</title>
Her er hele min fil.
<%@LANGUAGE="VBSCRIPT"%>
<%
If Session("validering") <> "valid" Then Response.Redirect("opslag.asp")
If Request.QueryString("Submit") <> "" Then
Set database = Server.CreateObject("ADODB.Connection")
database.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\inetpub\wwwroot\cgi-bin\shoot.mdb")
Set indlaeg = Server.CreateObject("ADODB.Recordset")
indlaeg.Open "dagbogsindlaeg", database, 2, 2
indlaeg.AddNew
indlaeg("overskrift") = Request.QueryString("overskrift")
indlaeg("dato") = Request.QueryString("dato")
indlaeg("indlaeg") = Request.QueryString("indlaeg")
If Request.QueryString("link") <> "" then
indlaeg("link") = Request.QueryString("link")
End If
indlaeg.Update
set emailadr = Server.CreateObject("ADODB.Recordset")
emailadr.Open "SELECT * FROM mailingliste", database
do until emailadr.eof
set msg = Server.CreateOBject( "JMail.Message" )
msg.ContentType = "text/html"
msg.Logging = true
msg.silent = true
msg.From = "norelpy@mail.dk"
msg.FromName = "Shootfighting Sønderborg"
msg.AddRecipient (rs("emailadr"))
msg.Subject = "Nyt på Shootfighting Sønderborg"
msg.Body = "Så ligger der et nyt indlæg på Shootfighting Sønderborg"
msg.HTMLBody = "<br><br><a href='http://80.196.132.129/dagbog.asp target='_blank''>Klik her for at komme dertil</a>"
msg.HTMLBody = "<br><br><a href='http://80.196.132.129/mailinglistslet.asp target='_blank''>Træt af mails, slip fri her</a>"
if not msg.Send("mail.tele.dk") then
Response.Redirect("opslag.asp")
else
Response.Redirect("opslag.asp")
end if
emailadr.movenext
end if
%>
<html><title>Opret</title>
<body bgcolor="#FFFFFF">
<form name="form1" method="get" action="opret.asp">
Overskrift:
<input type="text" name="overskrift">
<br>
Dato:
<input type="text" name="dato">
(12-04-2003)<br>
Indlæg.:
<textarea name="indlaeg" rows="8"></textarea>
<br>
Link:
<input type="text" name="link">
(www.shootersinternational.org)<br>
<br>
<input type="submit" name="Submit" value="Opret">
</form>
</body>
</html>
