J.Mail melder fejl
Jeg har et system hvor en bruger kan indsende en joke også kan en admin afslå eller accepterer den. Når en admin har afslået eller accepteret modtager brugeren en mail om joken er accepteret eller afslået. Problemet er så bare at ved afslå delen der sender den ikke mailen men melder fejl istedet:Okay vi tar´den lige en sidste gang så må vi se om det giver pote..
Accepter delen ser således ud:
if request.querystring("Accepter") = "Ja" then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../../db/Database.mdb")
Function FixTegn(strTegn)
FixTegn = Replace(strTegn, "'", "''")
End Function
IP = Request.Form("IP")
Navn = FixTegn(Request.Form("Overskrift"))
Joke = Replace(Request.form("Joke"), VbCrlf, "<br>")
IndsendtAf = FixTegn(Request.Form("Af"))
Fra = FixTegn(Request.Form("Fra"))
Dato = Request.Form("Dato")
sql = "INSERT INTO Jokes (Navn,Fra,Joke,Brugernavn,IP,Dato) VALUES('" & Navn & "','" & Fra & "','" & FixTegn(Joke) & "','" & IndsendtAf & "','" & IP & "','" & Dato & "')"
Conn.Execute(sql)
Set msg = Server.CreateOBject( "JMail.Message" )
Emne = "Joke på Mundgodter"
ModtagerNavn = request.form("Af")
JokeNavn = request.form("Overskrift")
Tekst = "Aloha " & ModtagerNavn & "!" & vbCrLf & vbCrLf & "Din joke " & JokeNavn & " som du har indsendt på Mundgodter.Hjemmeskoen.dk er blevet accepteret." & vbCrLf & "Det er nu muligt for andre brugere og læse netop din joke."& 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
strSQL = "DELETE * FROM IndsendteJokes WHERE id=" & Request.QueryString("id")
Conn.Execute (strSQL)
response.write "<br><br>Så blev joken accepteret.<br>Du kan nu finde den inde på <a href='../../Sider/Jokes.asp'>Joke siden</a>.</font>"
End if
Set conn = Nothing
Set rs = Nothing
------------------------------------------------------------------------------------
Så har vi afslå-delen i dette tilfælde bliver den kaldt "Afslaa":
if request.querystring("Afslaa") = "Ja" then
Set msg = Server.CreateOBject( "JMail.Message" )
Emne = "Joke på Mundgodter"
ModtagerNavn = request.form("Af")
JokeNavn = request.form("Overskrift")
Tekst = "Aloha " & ModtagerNavn & "!" & vbCrLf & vbCrLf & "Din joke " & JokeNavn & "som du har indsendt 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
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
------------------------------------------------------------------------------------
Accepter delen virker 110%.
Afslå delen derimod sender ikke mailen men giver denne fejl:
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å siges at den sletter fra databasen som den skal.
Og ja jeg er sikker på at min webhoster kan bruge JMail. Min webhoster er Web10 og de skriver følgende:
Nedenstående komponenter er installeret på alle windowsserverne.
Components:
AspUpload3.0.0.3
AspImage 2.x
W3 Jmail4.4
MyODBC-3.51.06
ODBC.NET
SP:
Jet Sp8
MDAC 2.8
------------------------------------------------------------------------------------
Så kommer vi til min opgave.
Den lyder på om der er nogle der kan fortælle mig hvordan jeg kan få systemet til at slette indholdet i mine form bokse når systemet enten har accepteret eller afslået joken. Altså så den faktisk laver en slags "<input type="reset" value="Slet alt">"..
Min "form-del" ser sådan 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")%>">
<br><br>
<input type="submit" value="Accepter!"><Button Class="Afslå" onClick="window.location='Vis.asp?Afslaa=Ja&Id=<%=rs("Id")%>'">Afslå det pis!</Button>
------------------------------------------------------------------------------------
Er der nogle der kan hjælpe? :)
