Anbefal igen

<%
strCatalog        = Request.Form(\"strCatalog_NAME\")
intCatalogID    = Request.Form(\"intCatalogID\")
intProdID        = Request.Form(\"intProdID\")
getTxtFejl        = Request.Form(\"txt\")
%>

<html>
<head>
<title>Anbefal&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</title>
<link rel=\"stylesheet\" href=\"style/style.css\">
</head>
<body bgcolor=\"#ECECEC\">
<form method=\"post\" action=\"nyanbef.asp\">

<input type=\"hidden\" name=\"txt\" value=\"<%= Request(\"getTxtFejl\") %>\"><input type=\"hidden\" name=\"intProdID\" value=\"<%= Request(\"intProdID\") %>\"><input type=\"hidden\" name=\"intCatalogID\" value=\"<%= Request(\"intCatalogID\") %>\"><input type=\"hidden\" name=\"strCatalog_NAME\" value=\"<%= Request(\"strCatalog\") %>\">
<table border=\"0\" width=\"100%\">
  <tr>
    <td><font face=\"Verdana\" size=\"1\" color=\"black\" ><b>&nbsp;Modtagers E-mail</b></font><br>
<input type=\"text\" name=\"usrmail\" value=\"<%=Request.Form(\"usrmail\")%>\"style=\"font-face:verdana;width: 100pt; background-color:#FFFFFF;  font-size: 7pt; line-height: 11pt;\"></td>
  </tr>
  <tr>
    <td><font face=\"Verdana\" size=\"1\" color=\"black\"><b>&nbsp;Modtagers navn</b></font><br>
<input type=\"text\" name=\"usrname\" value=\"<%=Request.Form(\"usrname\")%>\" style=\"font-face:verdana;width: 100pt; background-color:#FFFFFF; font-size: 7pt; line-height: 11pt;\"></td>
  </tr>
  <tr>
    <td><font face=\"Verdana\" size=\"1\" color=\"black\"><b>&nbsp;Senders navn</b></font><br>
<input type=\"text\" name=\"rmname\" value=\"<%=Request.Form(\"rmname\")%>\"style=\"font-face:verdana;width: 100pt; background-color:#FFFFFF;  font-size: 7pt; line-height: 11pt;\"></td>
  </tr>
  <tr>
    <td><input type=\"hidden\" name=\"check\" value=\"true\"><input type=\"submit\" value=\"Anbefal\" class=\"knap\"></form></td>
  </tr>
<%
If Request.Form(\"check\") Then
intErr = false
If Request.Form(\"usrmail\") = \"\" Then
Response.Write \"<tr><td><font size=\"\"1\"\" face=\"\"verdana\"\" color=\"\"red\"\"><i>Modtagers E-mail</i> er <b>ikke</b> udfyldt</font></td></tr>\"
intErr = true
End if
If Request.Form(\"usrname\") = \"\" Then
Response.Write \"<tr><td><font size=\"\"1\"\" face=\"\"verdana\"\" color=\"\"red\"\"><i>Modtagers navn</i> er <b>ikke</b> udfyldt</font></td></tr>\"
intErr = true
End if
If Request.Form(\"rmname\") = \"\" Then
Response.Write \"<tr><td><font size=\"\"1\"\" face=\"\"verdana\"\" color=\"\"red\"\"><i>Senders navn</i> er <b>ikke</b> udfyldt</font></td></tr>\"
intErr = true
End if

If NOT intErr Then

Dim usrMail,usrName,rmName,intMail,intSmtp,intSender,strName,strDesc,intProdID


Set Conn = Server.CreateObject(\"ADODB.Connection\")
    strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"database/database.mdb\")
    Conn.Open strDSN
   

Set rsProdInfo = Conn.Execute(\"SELECT * FROM products where productID=\"&intProdID)
        If rsProdInfo.EOF Then
    Response.Write \"Produktet \" & intProdID & \" eksistere ikke i vores database.\"
        Else

    strName = rsProdInfo(\"productName\")
    strDesc = rsProdInfo(\"productDesc\")

    usrMail = Request.form(\"usrmail\")      \' Sætter modtagernavn
    usrName = Request.form(\"usrname\")      \' Sætter modtager e-mail
    rmName = Request.form(\"rmname\")        \' Sætter afsenders navn

    intMail = \"robot@ditdomæne.dk\"        \' Sætter global e-mail adressen som der sendes fra
    intSmtp = \"mail.ditdomæne.dk\"          \' Sætter global smtp server
    intSender = \"Hifistore.dk\"            \' Sætter global body i e-mailen
   
Set msg = Server.CreateOBject( \"JMail.Message\" )
    msg.From = intMail
    msg.FromName = intSender
    msg.AddRecipient usrMail, usrName

    msg.Subject = \"Produkt info fra ditdomænme.dk\"
   
Dim htmlstart,txt1,txt2,txt3,htmlslut
    htmlstart = \"<html><body><font size=\"\"1\"\" face=\"\"verdana\"\" color=\"\"black\"\">\"
    txt1 = \"Hej \" & usrName & \"<br><br><b>Produktnavn</b><br>\" & strName & \"<br><br>\"
    txt2 = \"Prøv at tjekke det her ud her : <b><a href=\"\"http://www.ditdomæne.dk/?strCatalog_NAME=\" & strCatalog & \"&intCatalogID=\" & intCatalogID & \"&intProdID=\" & intProdID & \"&txt=\" & getTxtFejl &\"\"\">Hifistore.dk</a></b><br><br>\"
    txt3 = \"<b>Med Venlig Hilsen \" & rmName & \"</b><br><br><br><hr noshade size=\"\"1pt\"\" color=\"\"silver\"\" width=\"\"80%\"\"></font><font size=\"\"1\"\" face=\"\"verdana\"\" color=\"\"silver\"\"><center>Denne mail kan ikke besvares, da den bliver sendt af en mailrobot.<br>Denne mail er sendt fra en ven, som opfordrer dig til at se et produkt og er hermed ikke sendt af ditdomæne.dk</center>\"
    htmlslut = \"</font></body></html>\"
    msg.htmlBody = htmlstart & txt1 & txt2 & txt3 & htmlslut
   
        If Not msg.Send(intSmtp) Then
    Response.write \"<pre>\" & msg.log & \"</pre>\"
        Else
    Response.write \"<tr><td><font size=\"\"1\"\" face=\"\"verdana\"\" color=\"\"black\"\">Produkt info er sendt<br></font><a href=\"\"java script:window.close()\"\"><font size=\"\"1\"\" face=\"\"verdana\"\" color=\"\"red\"\"><b>Luk Vinduet</b></font></a></td></tr>\"
   
        End If
        End If

rsProdInfo.Close
set rsProdInfo = Nothing
   
Conn.Close
set Conn = Nothing
End If

End If
%>
</table>
</body>
</html>


Sååå der er jo lidt at ændre i ;)

jamen tak da

Var så lidt.