Newsletter / postkort

Jeg er ved at lave en postkort funktion
Jeg fandt et script der så ok ud men min
webhotel kunne ikke klare \"CDONTS.NewMail\"
Derfor satte jeg en ny del ind som lå hos
udbyderen af mit webhotel
Jeg kan dog ikke få det til at virke
Jeg fåer dette svar \"Expected \'End\' \"
Jeg selvfølgelig forsøgt at sætte end ind
og lidt andet men det virker ikke
Er der nogen der kan hjælpe eller komme op
med et godt alternativ

<!--#include file=\"common.asp\"-->
<script>
function submitit(){
var name = document.theform.name.value
var email = document.theform.email.value
if (name==\"\"){
alert(\"Fill your name\")
document.theform.name.focus()
return false
}

if (email.indexOf(\'@\', 0) == -1 || email.indexOf(\'.\', 0) == -1){
alert(\"No valid e-mail address!\");
document.theform.email.focus()
return false
                       
                }
}

</script>
<%
dim pic,action,rndNumber
pic = request.queryString(\"pic\")

action = request(\"action\")
select case action
    case \"send\"
    Const fsoForWriting = 2

    Dim objFSO
    Set objFSO = Server.CreateObject(\"Scripting.FileSystemObject\")

    \'Open the text file
    Dim objTextStream
    \'*******************************************
    \'change the path to your path!!!!!!!!!!!!
    \'*******************************************
    randomize
    rndNumber = rnd*1000000000000
    rndNumber = int(rndNumber)
    dim path
    path = server.MapPath(\"../../../log/postcards/\"&rndNumber&\".htm\")


    Set objTextStream = objFSO.OpenTextFile(path, fsoForWriting, True)



    \'Display the contents of the text file
    objTextStream.WriteLine \"<html><head><title>Untitled</title></head>\"
    objTextStream.WriteLine \"<body bgcolor=white>\"
    objTextStream.WriteLine \"<table border=0 align=center>\"
    objTextStream.WriteLine \"<tr align=center><td><img src=\'../images/\" & request.form(\"ImageId\") & \"\' width=\'374\' height=\'269\' border=\'0\'></tr></td>\"
    objTextStream.WriteLine    \"<tr align=\'center\'><td>\" & request.form(\"mes\") & \"</tr></td>\"
    objTextStream.WriteLine \"<tr align=\'center\'><td>regards :\" & request.form(\"name\") & \"</td></tr>\"
    \'**************change the url to your server!********************
    objTextStream.WriteLine \"<tr><td align=center><a href=\'http://www.my.dk\'>Tilbage</a></td></tr>\"
    objTextStream.WriteLine \"</table></body>\"
    objTextStream.Close
    Set objTextStream = Nothing
    Set objFSO = Nothing


<<<< FØR STOD DER DENNE SÆTNING


    \'Close the file and clean up
    objTextStream.Close
    Set objTextStream = Nothing
    Set objFSO = Nothing
    Dim objCDO
    Set objCDO = Server.CreateObject(\"CDONTS.NewMail\")
    objCDO.To = request.form(\"email\")
    objCDO.From = \"myname@mydomain.com\"
    objCDO.Subject = \"New postcard has Arrived from mypostcard site!\"
    \'**************change the url to your server!********************
    objCDO.Body = request.form(\"name\")& \" sent you poscard! goto http://www.lego-shoppen.com/log/postcards/\"&rndNumber&\".htm\"
    objCDO.Send
    set objCDO = nothing
    response.write \"<script>alert(\'Postcard sent!\');location.href=\'index.asp\'</script>\"
    response.end
end select
%>


>>>> JEG SATTE DENNE SÆTNING IND



    Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\")
    Mailer.RemoteHost = \"mail.my.dk\"
    Mailer.FromName = \"my\"
    Mailer.FromAddress = \"postkort@my.dk\"
    Mailer.AddRecipient request.form(\"name\"), request.form(\"email\")
    Mailer.Subject = \"Du har fået et postkort fra my. Se hvem der er fra.\"
    Mailer.BodyText = request.form(\"name\")& \" Har sendt dig et postkort goto http://www.my.dk/log/postcards/\"&rndNumber&\".htm\"
    if not Mailer.SendMail then
    Response.Write \"Meddelelsen kunne ikke senes... Fejlen er: <br>\"
    Response.Write Mailer.Response
    else
    Response.Write \"Meddelelsen er sendt!\"
end if
%>


>>>>>>>>


<html>
<head>
    <title>Untitled</title>
</head>

<body>
<form name=\"theform\" action=\"send.asp?action=send\" method=\"post\" onsubmit=\"return submitit()\">
<table border=0 align=\"center\">
<td  align=\"center\">
<img src=\"images/main.gif\"  border=\"0\" alt=\"\">
</td></tr>
<%
set conn=server.createobject(\"adodb.connection\")
set rs=server.createobject(\"adodb.recordset\")
    conn.open dsn
sql = \"select * from postcard where ID=\"&pic
rs.open sql,conn%>
<input type=\"hidden\" name=\"ImageId\"  value=\"<%=rs(\"imageName\")%>\">
<tr align=center><td><img src=\"images/<%=rs(\"imageName\")%>\"  border=\"0\" alt=\"\"><br></tr></td>
<tr align=\"center\"><td>Write your name:<br><input type=text name=name size=25><br></td>
<tr align=\"center\"><td>Write Reciever email:<br><input type=text name=email size=25><br></td>
    <tr align=\"center\"><td>Write your Message:<br><textarea cols=30 rows=7 name=\"mes\"></textarea><br></td>
    <tr align=\"center\"><td><input type=\"submit\" name=\"submit\" value=\"Send\"></tr></td>
    </table>
<%call close()%>

</body>
</html>