Recommend page

Prøv på http://www.codelink.dk under Kildekode, her er der en kategori der hedder noget med anbefal side etc...

De havde et rigtig fedt script, men det brugte desværrer ASPMail og det har jeg ikke :ø(

I sende delen står dette:

Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\")
Mailer.Charset = 2
Mailer.Encoding = 2
Mailer.Priority = 1   
   
Mailer.RemoteHost = mailserver
Mailer.FromName = afsender
Mailer.FromAddress = afsender_mail

if E_mail <> \"\" and instr(1,E_mail,\"@\",1) > 0 and instr(1,E_mail,\".\",1) > 0 then
Mailer.AddRecipient \"dinserver.dk\",E_mail
else
Mailer.AddRecipient fejl_afsender,fejl_mail
end if

Mailer.Subject = Subject_txt
Mailer.BodyText = temp_text

if not Mailer.SendMail then
  Response.Write \"Der opstod en fejl ved levering af din anbefaling !\"
  Response.Write Mailer.Response
else
  Response.Write \"Vi har send din anbefaling videre \"
  \'Response.redirect \"http://www.dinside.dk/takker.asp\" \' Bruges hvis du vil sende brugeren videre til en takke side.
end if

-----------------------------------------------

Jeg har prøvet med:

Set Mail = Server.CreateObject(\"Persits.MailSender\")
Mail.Host = mailserver \' Specify a valid SMTP server
Mail.From = afsender \' Specify sender\'s address
Mail.FromName = afsender_mail \' Specify sender\'s name

if E_mail <> \"\" and instr(1,E_mail,\"@\",1) > 0 and instr(1,E_mail,\".\",1) > 0
then
Mail.AddAddress \"dinserver.dk\",E_mail
else
Mail.AddAddress fejl_afsender,fejl_mail \' Name is optional
end if

\'Mail.AddReplyTo \"info@veryhotcakes.com\"
\'Mail.AddAttachment \"c:\\images\\cakes.gif\"

Mail.Subject = Subject_txt
Mail.Body = temp_text

On Error Resume Next
Mail.Send
If Err <> 0 Then
  Response.Write \"Der opstod en fejl ved levering af din anbefaling ! - \" &
Err.Description
else
  Response.Write \"Vi har send din anbefaling videre \"
End If

--------------------------------------------

Men det virker ikke er der nogen der kan få det til at virke ??

Hvad er det der ikke virker i scriptet ?
Kommer der ikke en fejl

Jeg har prøvet med dette her

Set Mail = Server.CreateObject(\"Persits.MailSender\")
Mail.Host = mailserver \' Specify a valid SMTP server
Mail.From = afsender \' Specify sender\'s address
Mail.FromName = afsender_mail \' Specify sender\'s name

if E_mail <> \"\" and instr(1,E_mail,\"@\",1) > 0 and instr(1,E_mail,\".\",1) > 0 then

Mail.AddAddress \"dinserver.dk\",E_mail
else
Mail.AddAddress fejl_afsender,fejl_mail \' Name is optional
end if

\'Mail.AddReplyTo \"info@veryhotcakes.com\"
\'Mail.AddAttachment \"c:\\images\\cakes.gif\"

Mail.Subject = Subject_txt
Mail.Body = temp_text

On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write \"Der opstod en fejl ved levering af din anbefaling ! - \" &
Err.Description
else
  Response.Write \"Vi har send din anbefaling videre \"
End If

--------------------------------------------

Hvor jeg får denne fejl


Microsoft VBScript compilation error \'800a03ea\'

Syntax error

/recommend/send_anbefaling.asp, line 127

Response.Write \"Der opstod en fejl ved levering af din anbefaling ! - \" &

mangler der ikke noget efter & tegnet i denne linie ?

Response.Write \"Der opstod en fejl ved levering af din anbefaling ! - \" & ......

jo det fandt jeg selv ud af og har nu:

Set Mail = Server.CreateObject(\"Persits.MailSender\")
Mail.Host = post.tele.dk \' Specify a valid SMTP server
Mail.From = wild-game.dk \' Specify sender\'s address
Mail.FromName = afsender_mail \' Specify sender\'s name

if E_mail <> \"\" and instr(1,E_mail,\"@\",1) > 0 and instr(1,E_mail,\".\",1) > 0 then

Mail.AddAddress \"dinserver.dk\",E_mail
else
Mail.AddAddress fejl_afsender,fejl_mail \' Name is optional
end if

\'Mail.AddReplyTo \"info@veryhotcakes.com\"
\'Mail.AddAttachment \"c:\\images\\cakes.gif\"

Mail.Subject = Subject_txt
Mail.Body = temp_text

On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write \"Der opstod en fejl ved levering af din anbefaling ! - \" & Err.Description
else
  Response.Write \"Vi har send din anbefaling videre \"
End If



Hvor jeg får fejlen

Microsoft VBScript runtime error \'800a01a8\'

Object required: \'post\'

/recommend/send_anbefaling.asp, line 107

her er linie 107
Mail.Host = post.tele.dk \' Specify a valid SMTP server

Har TDK installeret en Mailkomponent du kan bruge ?

Mail.Host = smtp.post.tele.dk \' Specify a valid SMTP server

Ok nu får jeg fejlen Host not found:

<%end if%>
<%
if mode = \"send\" then

\'------------------ skriv i databasen
Set Conn = server.CreateObject(\"adodb.connection\")
Dim DSNanbefal
DSNanbefal = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"log/anbefal_side.mdb\")
Conn.open DSNanbefal

\'Here I start to add the information into the database fields
    mSQL = \"INSERT INTO anbefal_side(\"
    mSQL = mSQL & \"anbefalet_link,\"
    mSQL = mSQL & \"din_email,\"
    mSQL = mSQL & \"modtagers_email,\"
    mSQL = mSQL & \"kommentar,\"
    mSQL = mSQL & \"ip,\"
    mSQL = mSQL & \"remoteip,\"
    mSQL = mSQL & \"browsertype)\"

    mSQL = mSQL & \"Values(\"
    mSQL = mSQL & \"\'\" & anbefalet_link & \"\', \"
    mSQL = mSQL & \"\'\" & din_e_mail & \"\', \"
    mSQL = mSQL & \"\'\" & e_mail & \"\', \"
    mSQL = mSQL & \"\'\" & kommentar & \"\', \"
    mSQL = mSQL & \"\'\" & Request.ServerVariables(\"remote_addr\") & \"\', \"
    mSQL = mSQL & \"\'\" & Request.Servervariables(\"remote_host\") & \"\', \"
    mSQL = mSQL & \"\'\" & browser.platform & \" - \" & browser.browser & \" - \" & browser.version & \"\')\"

Conn.Execute (mSQL)
Conn.Close
Set RS = Nothing

\'------------------------------------------Faste E-mail variabler - Start
mailserver = \"smtp.post.tele.dk \"
Afsender = \"wild-game.dk\"
Afsender_mail = \"bobbe@direkte.org\"
Fejl_afsender = \"Fejlmail\"
Fejl_mail = \"bobbe@direkte.org\"
Subject_txt = \"Et godt link fra dinserver.dk\"

\'------------------------------------------Bodytekst i e-mail
temp_text = \"Hej\" & vbCrLf
temp_text = temp_text & \"Denne e-mail er sendt fra dinserver.dk af \" & din_e_mail & \" som mener du bør besøge dette link.\" & Chr(13)
temp_text = temp_text & anbefalet_link & vbCrLf & vbCrLf

if kommentar <> \"\" then
temp_text = temp_text & \"Kommentar fra \" & din_e_mail & vbCrLf
temp_text = temp_text & kommentar & vbCrLf & vbCrLf
end if

temp_text = temp_text & \"Med venlig hilsen \" & vbCrLf
temp_text = temp_text & \"dinserver.dk \" & vbCrLf & vbCrLf
temp_text = temp_text & \"Denne e-mail er genereret automatisk d. \" & now & \" på http://www.dinserver.dk\"& vbCrLf
\'------------------------------------------Faste E-mail variabler - Stop


\'----------------ASPMail

Set Mail = Server.CreateObject(\"Persits.MailSender\")
Mail.Host = mailserver \' Specify a valid SMTP server
Mail.From = Afsender \' Specify sender\'s address
Mail.FromName = Afsender_mail \' Specify sender\'s name

if E_mail <> \"\" and instr(1,E_mail,\"@\",1) > 0 and instr(1,E_mail,\".\",1) > 0 then

Mail.AddAddress \"dinserver.dk\",E_mail
else
Mail.AddAddress fejl_afsender,fejl_mail \' Name is optional
end if

\'Mail.AddReplyTo \"info@veryhotcakes.com\"
\'Mail.AddAttachment \"c:\\images\\cakes.gif\"

Mail.Subject = Subject_txt
Mail.Body = temp_text

On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write \"Der opstod en fejl ved levering af din anbefaling ! - \" & Err.Description
else
  Response.Write \"Vi har send din anbefaling videre \"
End If

\'-----------------------------------------

%>

Når du sender mail via din direkte.org sender du så via post.tele.dk, eller sender du f.eks. via smtp.direkte.org ?

Der hvor jeg ligger med mit mail, der skal afsender bo på serveren, og jeg kan derfor ikke selv gøre som du f.eks. gør !

Så virker det jeg gjord dette:

mailserver = \"post.tele.dk\"
Afsender = \"bobbe@direkte.org\"
Afsender_mail = \"bobbe@direkte.org\"
Fejl_afsender = \"Fejlmail\"
Fejl_mail = \"bobbe@direkte.org\"
Subject_txt = \"Et godt link fra dinserver.dk\"

\'------------------------------------------Bodytekst i e-mail
temp_text = \"Hej\" & vbCrLf
temp_text = temp_text & \"Denne e-mail er sendt fra dinserver.dk af \" & din_e_mail & \" som mener du bør besøge dette link.\" & Chr(13)
temp_text = temp_text & anbefalet_link & vbCrLf & vbCrLf

if kommentar <> \"\" then
temp_text = temp_text & \"Kommentar fra \" & din_e_mail & vbCrLf
temp_text = temp_text & kommentar & vbCrLf & vbCrLf
end if

temp_text = temp_text & \"Med venlig hilsen \" & vbCrLf
temp_text = temp_text & \"dinserver.dk \" & vbCrLf & vbCrLf
temp_text = temp_text & \"Denne e-mail er genereret automatisk d. \" & now & \" på http://www.dinserver.dk\"& vbCrLf
\'------------------------------------------Faste E-mail variabler - Stop


\'----------------ASPMail

Set Mail = Server.CreateObject(\"Persits.MailSender\")
Mail.Host = mailserver \' Specify a valid SMTP server
Mail.From = Afsender \' Specify sender\'s address
Mail.FromName = Afsender_mail \' Specify sender\'s name

if E_mail <> \"\" and instr(1,E_mail,\"@\",1) > 0 and instr(1,E_mail,\".\",1) > 0 then

Mail.AddAddress \"bobbe@direkte.org\",E_mail
else
Mail.AddAddress fejl_afsender,fejl_mail \' Name is optional
end if

\'Mail.AddReplyTo \"info@veryhotcakes.com\"
\'Mail.AddAttachment \"c:\\images\\cakes.gif\"

Mail.Subject = Subject_txt
Mail.Body = temp_text

On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write \"Der opstod en fejl ved levering af din anbefaling ! - \" & Err.Description
else
  Response.Write \"Vi har send din anbefaling videre \"
End If


Men Hansen do får point fordi du gad hjælpe tak

Takker, fint det kom til at virke.