Fejl + en lille opgave
Hejsa..Jeg har lidt et spørgsmål og lidt en opgave. Det vil sige jeg har et stykke kode hvor den først skal sende en mail også skal den slette fra databasen. Problemet er bare at den melder fejl når den skal sende mailen.
Koden ser sådan ud:
if request.querystring("Afslaa") = "Ja" then
Set msg = Server.CreateOBject( "JMail.Message" )
Emne = "Joke på Mundgodter"
ModtagerNavn = request.form("Af")
Tekst = "Aloha " & ModtagerNavn & "!" & vbCrLf & vbCrLf & "Din joke på Mundgodter.Hjemmeskoen.dk er blevet afslået." & vbCrLf & "Men du må ´hoppe op på hesten igen´ og skrive en ny ind ;)."& vbCrLf &"Hvis du er utilfreds med noget kan du kontakte Kristian via Mundgodters kontakt formular." & vbCrLf & vbCrLf & "Med venlig hilsen Martin,Kasper & Kristian."
AfsenderNavn = "Mundgodter.Hjemmeskoen.dk"
Afsender = " Kristian@Rosenholmsnet.dk"
Modtager = request.form("Mail")
msg.Logging = True
msg.Silent = True
msg.From = Afsender
msg.FromName = AfsenderNavn
msg.Charset = "iso-8859-1"
msg.AddRecipient Modtager, ModtagerNavn
msg.Subject = Emne
msg.Body = Tekst
if not msg.Send("localhost" ) then
Response.write "Fejl:<br><pre>" & msg.log & "</pre>"
Set msg = nothing
end if
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../../db/Database.mdb")
strSQL = "DELETE * FROM IndsendteJokes WHERE id=" & Request.QueryString("id")
Conn.Execute (strSQL)
response.write "<br><br>Så blev joken afslået.</font>"
End if
Set conn = Nothing
Set rs = Nothing
Som der står oppe i koden så hvis der sker fejl skal den meddele det. Det gør den skam også den kommer med sådan en lang lektie her:
Fejl:
The message was undeliverable. All servers failed to receive the message
.execute()
{
Trying server mail:localhost
<- 220 ta19.talkactive.net Microsoft ESMTP MAIL Service, Version: 6.0.3790.1830 ready at Tue, 13 Sep 2005 19:41:27 +0200
-> EHLO ta19.talkactive.local
<- 250-ta19.talkactive.net Hello [127.0.0.1]
250-TURN
250-SIZE
250-ETRN
250-PIPELINING
250-DSN
250-ENHANCEDSTATUSCODES
250-8bitmime
250-BINARYMIME
250-CHUNKING
250-VRFY
250 OK
-> MAIL FROM:
<- 250 2.1.0 Kristian@Rosenholmsnet.dk....Sender OK
-> DATA
<- 503 5.5.2 Need Rcpt command.
Error: 503 5.5.2 Need Rcpt command.
.execute()
{
Trying server mail:localhost
<- 220 ta19.talkactive.net Microsoft ESMTP MAIL Service, Version: 6.0.3790.1830 ready at Tue, 13 Sep 2005 19:41:27 +0200
-> EHLO ta19.talkactive.local
<- 250-ta19.talkactive.net Hello [127.0.0.1]
250-TURN
250-SIZE
250-ETRN
250-PIPELINING
250-DSN
250-ENHANCEDSTATUSCODES
250-8bitmime
250-BINARYMIME
250-CHUNKING
250-VRFY
250 OK
-> MAIL FROM:
<- 250 2.1.0 Kristian@Rosenholmsnet.dk....Sender OK
-> DATA
<- 503 5.5.2 Need Rcpt command.
Error: 503 5.5.2 Need Rcpt command.
1 of 1 servers failed
}
Det skal også lige siges at den sletter fint nok fra databasen den sender bare ikke mailen.
Så min opgave lyder på hvordan jeg kan gøre sådan at når den har sendt mailen og slettet den fra databasen og den har meddelt at joken er afslået hvordan jeg så kan få den til at tømme alle felterne der er på siden.
Altså:
Nogle der kan fortælle mig hvordan jeg kan få gjort sådan at når den har sendt mailen og slettet posten fra databasen samt meddelt at joken er blevet afslået så sletter den alt indholdet i de form bokse der er over det hele?
Min form del ser således ud:
<hr>
Overskrift:
<br>
<input type="text" name="Overskrift" size="20" value="<%=rs("Overskrift")%>">
<br>
Joke:
<br>
<textarea name='Joke' rows='5' cols='27'><%=Replace(rs("Joke"), "<br>", VbCrlf)%></textarea>
<br>
Taget fra/Hørt fra:<br>
<input type="text" name="Fra" size="20" value="<%=rs("Fra")%>">
<br>
Indsenderens navn:<br>
<input type="text" name="Af" size="20" value="<%=rs("IndsendtAf")%>">
<br>
Indsenderens mail:<br>
<input type="text" name="Mail" size="20" value="<%=rs("Mail")%>">
<br>
Indsenderens IP:<br>
<input type="text" name="IP" size="20" value="<%=rs("IP")%>">
<br>
Indsendt:<br>
<input type="text" name="Dato" size="20" value="<%=rs("Dato")%>">
Nogle der kan hjælpe :)
