<% Server.ScriptTimeout = 1200 function fixQuotes(theString) fixQuotes = replace(theString, "'", "''") end function 'sending mail to friend if Request.QueryString("x")=1 then femail = Request.Form("femail") fname = Request.Form("fname") semail = Request.Form("semail") sname = Request.Form("sname") comments = Request.Form("comments") page = Request.Form("page") urlpath = Request.Form("lsturl") 'Building string myStr="" myStr = myStr & "To " & sname & ",
Your Friend " & fname & " has sent a website address.

"&urlpath&"

" if comments <> "" then myStr = myStr & "Comments: "&comments&"
" end if myStr = myStr & "Thanks." 'Response.Write myStr 'path = server.MapPath("applyonline1.asp") 'path1 = left(path,InStr(path,"\htmlsite\applyonline1.asp")) dim cdoConfig, cdoMessage set cdoConfig = server.createobject("CDO.Configuration") With cdoConfig.Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "smtp.1and1.com" .Item(cdoSMTPAuthenticate) = 1 .Item(cdoSendUsername) = "no-reply@jainworld.com" .Item(cdoSendPassword) = "jayamanish" .Update End With set cdoMessage = server.createobject("CDO.Message") With cdoMessage set .Configuration = cdoConfig .From = """Jainworld""" .To = femail .HTMLBody = myStr .Subject = "Email website to a Friend" .Send End With set cdoConfig = Nothing set cdoMessage = Nothing Response.Write ("
Email sent successfully.

") 'Response.Redirect "friendmail.asp?x=2" 'Response.Redirect "http://www.jainworld.com/friendmail1.asp" end if %>
<%if Request.QueryString("x")=2 then%> <%end if%>
Email this Website to a Friend
Your email has been successfully sent to your friends email address.
Senders Name
Senders Email
Friend's Name
Friend's Email
Comments (if any)