Jeg kan ikke få det til at fungere, kan du se, hvad jeg gør forkert herunder? Jeg har sat to krydser (xx), hvor jeg selv tror, jeg skal skrive min e-mail og webadresse. Men er lidt i tvivl, om det er rigtigt?
Min ene fil hedder "tipsenvenn.asp" og ser sådan ud;
<html>
<%
tempside = request.servervariables("http_referer")
%>
<form action="sendtips.asp" method="GET">
Your name
<input name="Name" type=text id="Name"><br>
<br>
Name of friend
<input name="FriendsName" type=text id="FriendsName"><br>
<br>
E-mail of friend
<input name="Email" type=text id="Email"><br>
<br>
Comment to friend<br>
<TEXTAREA NAME="Comment" COLS="30" ROWS="10" id="Comment"></TEXTAREA><br>
<br>
<INPUT TYPE="hidden" name="side" value=<%= tempside %>>
<input type=hidden name="action" value="tell">
<input type=submit value="Send to friend">
</form>
</html>
Min anden fil hedder "sendtips" og ser sådan ud;
<html>
<%
strNavnVenn = Request.querystring("Name")
strVennNavn = Request.querystring("FriendsName")
strEpost = Request.querystring("Email")
strBeskjed = Request.querystring("Comment")
strSide = Request.querystring("side")
IF strNavnVenn = "" THEN
Response.Write "<font style='color:red'>Remember to type in your name!</font><br>"
Response.Write "Click <a href='tipsenvenn.asp'>her</a> to go back."
Response.End
END IF
IF strVennNavn = "" THEN
Response.Write "<font style='color:red'>Remember to type in the name of your friend!</font><br>"
Response.Write "Click <a href='tipsenvenn.asp'>her</a> to go back."
Response.End
END IF
IF strEpost = "" THEN
Response.Write "<font style='color:red'>Remember to type in the e-mail address of your friend!</font><br>"
Response.Write "Click <a href='tipsenvenn.asp'>her</a> to go back."
Response.End
END IF
IF strBeskjed = "" THEN
Response.Write "<font style='color:red'>You may write a comment to your friend!</font><br>"
Response.Write "Click <a href='tipsenvenn.asp'>her</a> to go back."
Response.End
END IF
IF strSide = "" THEN
Response.Write "<font style='color:red'>FEIL! No site has been given</font><br>"
Response.Write "Send an e-mail to <a href='mailto:xx@stofanet.dk'>xx@stofanet.dk</a> and let us know about the error"
Response.End
END IF
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = strName
Mailer.FromAddress= "xx@stofanet.dk"
Mailer.RemoteHost = "
www.xx.dk" '(Er det her jeg skal skrive min URL?)
Mailer.AddRecipient strFriendsName, strEmail
Mailer.Subject = "Tell a friend"
Mailer.BodyText = "Hallo" & " " & strFriendsName & "," & VbCrLf & VbCrLf & strFriendsName & " " & "thinks you should visit this site" & VbCrLf & strSide & VbCrLf & VbCrLf & "Under følger" & " " & strFriendsName & " " & "sin personlige hilsen:" & VbCrLf & "------xxx------" & VbCrLf & strComment & VbCrLf & "------xxx------"
if Mailer.SendMail then
Response.Write "Your friend has no recieved an e-mail with a link to this site" & " <b>" & strSide & "</b><br>"
Response.Write "Thank you" & " " & strFriendsName & " " & "for telling a friend about this site"
else
Response.Write "<font style='color:red'>There is an error. The error is " & Mailer.Response & "</font><br>"
Response.Write "Please send a mail to <a href='mailto:heian@stofanet.dk'>xx@stofanet.dk</a> with the error."
end if
%>
På forhånd tak!
Ny bruger
Nybegynder
Opret
Preview
