"Jørn Andersen" <jorn@jorna.dk> skrev >
Snip
> Undskyld, det var bare for at forklare mit korte svar. Og det var
> egentlig heller ikke specielt møntet på dig - jeg har bare så tit set
> den slags spørgsmål, hvor jeg tænker: Har folk i det hele taget selv
> prøvet at få det til at køre?
>
> Undskyld mit vrisne opstød en sen aften
(
Ja, jeg undskylder også - forstår dig udmærket...
Normalt eksperimenterer jeg MEGET...og helt korrekt, lærer af det...
Er også ved at eksperimentere nu her...
Får denne fejl:
ADODB.Recordset error '800a0cc1'
Item cannot be found in the collection corresponding to the requested name
or ordinal.
/index.asp, line 165
Når jeg tester tidliger i scriptet lige efter åbning af RS, findes det Item
fejlen refererer til ...
Her er mit script:
Sql = "SELECT * FROM tblTabel WHERE RegDato <= DateSerial(Year(Date()),
Month(Date())-1, Day(Date())) AND SidsteSalg Is Null AND MailSidsteSalg=0"
RS.Open Sql, Conn, 3, 3
If NOT RS.EOF Then
Do Until RS.EOF
<<<<<<<<<<<<<<<<<<<<<Har testet for Item her, og det
findes...>>>>>>>>>>>>>>>>>>>>
'response.write RS("FuldeNavn")
'response.end
Set JMail = Server.CreateObject ("JMail.SMTPMail")
' This is my local SMTP server
JMail.ServerAddress = "smtp.minudbyder.dk"
' This is me....
JMail.Sender = "admin@mitdomæne.dk"
JMail.Subject = "Meddelelse"
' Get the recipients mailbox from a form (note the lack of a equal sign).
'''JMail.AddRecipient RS("Email1")
JMail.AddRecipientBCC "admin@mitdomæne.dk"
JMail.AddRecipientBCC "webmaster@mitdomæne.dk"
'JMail.AddRecipient "dad@some.com"
' The body property is both read and write.
' If you want to append text to the body you can
' use JMail.Body = JMail.Body & "Hello world! "
' or you can use JMail.AppendText "Hello World! "
' which in many cases is easier to use.
JMail.Body = "Kære " & RS("FuldeNavn") & vbCrLf & vbCrLf &_ <--- Linje 165
"En masse tekst mere"
' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest
JMail.Priority = 1
JMail.AddHeader "Originating-IP", Request.ServerVariables ("REMOTE_ADDR")
' Must make sure that IUSR_???? has access to the following files.
' JMail.AppendBodyFromFile "e:\mail\standard_footer.txt"< BR>
JMail.AddAttachment "e:\products\MyProduct.exe"
' Send mailen...
JMail.Execute
JMail.Close
Sql="UPDATE tblMedlem SET MailSidsteSalg=-1, RegDato=Date() WHERE
MedlemID=" & RS("MedlemID")
Conn.Execute(Sql)
RS.MoveNext
Loop
End If
Set JMail = Nothing
Endnu engang undskyld...
Bjarne