%@ Language=VBScript %>
<%
Server.ScriptTimeout = 1200
function fixQuotes(theString)
fixQuotes = replace(theString, "'", "''")
end function
'sending mail to friend
if Request.QueryString("x")=1 then
semail = Request.Form("semail")
sname = Request.Form("sname")
linkurl = Request.Form("linkurl")
if instr(linkurl,";") then
urls = split(linkurl,";")
for i=0 to ubound(urls)
path= path & linebreak & "" & urls(i) & ""
linebreak="
"
next
elseif instr(linkurl,",") then
urls = split(linkurl,",")
for i=0 to ubound(urls)
path= path & linebreak & "" & urls(i) & ""
linebreak="
"
next
else
path= path & "" & linkurl & ""
end if
'Building string
myStr=""
myStr = myStr & "To Administrator,
" & "These are the broken links found in the site by " & sname & " (" & semail & ").
" & path & "
"
myStr = myStr & "Thanks.
" & sname
'Response.Write myStr
'path = server.MapPath("applyonline1.asp")
'path1 = left(path,InStr(path,"\htmlsite\applyonline1.asp"))
Set oMail2 = Server.CreateObject("CDONTS.NewMail")
oMail2.From = semail
oMail2.To = "vinod@jainworld.com;info@jainworld.com"
oMail2.BodyFormat =0
oMail2.MailFormat =0
oMail2.Subject = "Broken Links found by - " & sname
oMail2.Body = myStr
oMail2.Send
Set oMail2 = Nothing
'Response.Redirect "brokenlink.asp?x=2"
end if
%>