<%
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""
|