denne form til at tippe en ven - virker kun en gang imellem - ???
hvad kan det være der gør at den virker hveranden gang? bør den ikke enten
virke eller ikke virke?
<%
set objMSG = Server.CreateObject("JMail.Message")
objMSG.Logging = True
If request("afsemail") = "" Then
' Evt. senderadresse, hvis senderemail ikke er udfyldt
objMSG.From = "mail@enelleranden.dk"
Else
objMSG.From = request("afsemail")
End If
If request("afnavn") = "" Then
' Evt. sendernavn, hvis sendernavn ikke er udfyldt
objMSG.FromName = "fister"
Else
objMSG.FromName = request("afsnavn")
End If
objMSG.AddRecipient request("modtemail"), request("modtnavn")
' Emne
objMSG.Subject = "Tip from a friend!"
' indhold i både rentxt- og HTMLformat
objMSG.Body = "<a href='
Check'>http://www.adr.dk'>Check this site</a>"
objMSG.HTMLBody = "<body bgcolor='cdcdcd'><P><FONT face=""Verdana""
size=""1""><a href='
Check'>http://www.adr.dk'>Check this site </a></FONT></P>"
' smtp server - din email opsætning
If not objMSG.Send("mail.adr.dk") Then
response.write "<P>Tippet blev ikke sendt pga.af en intern fejl</P>"
Else
response.write "<P>Thanks for sending!</P>"
response.write "<P>Yous tip had been mailed"
If request("modtnavn") <> "" Then response.write " til " &
request("modtnavn")
response.write "</P>"
End If
%>