Arrg Knap så fedt ASP

Her er resten

</tr>
  <tr>
    <td width=\"98%\" colspan=\"2\"><br>
      <br>
      <input type=\"submit\" value=\"Send\" name=\"anbefal\">
      <input type=\"hidden\" value=\"<%=anbefalet_link%>\" name=\"anbefalet_link\">
      </form>
<%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 = \"post.tele.dk\"
Afsender = \"bobbe@direkte.org\"
Afsender_mail = \"bobbe@direkte.org\"
Fejl_afsender = \"Fejlmail\"
Fejl_mail = \"bobbe@direkte.org\"
Subject_txt = \"Wery Cool link from www.wild-game.dk\"

\'------------------------------------------Bodytekst i e-mail
temp_text = \"Hello Dude\" & vbCrLf
temp_text = temp_text & \"This mail is send from www.wild-game.dk by \" & din_e_mail & \" he think that you should visit.\" & Chr(13)
temp_text = temp_text & anbefalet_link & vbCrLf & vbCrLf

if kommentar <> \"\" then
temp_text = temp_text & \"Comment from \" & din_e_mail & vbCrLf
temp_text = temp_text & kommentar & vbCrLf & vbCrLf
end if

temp_text = temp_text & \"Regards \" & vbCrLf
temp_text = temp_text & \"www.wild-game.dk \" & vbCrLf & vbCrLf
temp_text = temp_text & \"This mail was auto created on the. \" & now & \" at http://www.wild-game.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 \"Damid somthing went wrong ! - \" & Err.Description
else
  Response.Write \"YAAAAHHHHHOOOOOOOoooooo your frind got the mail \"
  Response.Write \"<br><p><font face=Arial, Helvetica ,Verdana size=2><a href=\'java script:onClick= window.close()\'>Close Window</A></font></p> \"
End If

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

%>

<%
mode = \"\"
end if
%>
      </table>

</BODY>

Så vidt jeg kan se sætter du aldrig emailen ind

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

Ok men hvad gør jeg ??

Ok jeg klarer mig selv :ø(

ved at bytte

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

om til,

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

Fik jeg det til at køre

:-)