<% bottomtextfile = "bottomtext.inc" set fs=Server.CreateObject("Scripting.FileSystemObject") strpathinfo = Request.ServerVariables("PATH_INFO") strphysicalpath = server.MapPath(strpathinfo) set path = fs.GetFile(strphysicalpath) set rootfolder = path.parentfolder lastslashpos = instrrev(rootfolder,"\") reqpath = left(rootfolder, lastslashpos) bottomtextfilepath = reqpath & bottomtextfile if fs.FileExists(bottomtextfilepath) then temp_bottom_text_str="" set fname=fs.OpenTextFile(bottomtextfilepath,1) do while fname.AtEndOfStream = false temp_bottom_text_str= temp_bottom_text_str & fname.ReadLine loop htmltextindex = temp_bottom_text_str else htmltextindex=htmltextindex end if submit_reffriend = Request.Form("submit_reffriend") yourname=Request.Form("yourname") youremail=Request.Form("youremail") friendname=Request.Form("friendname") friendemail=Request.Form("friendemail") 'Response.Write "youremail=" & youremail 'Response.Write "friendemail=" & friendemail youremail_check=ValidateEmail(youremail) friendemail_check=ValidateEmail(friendemail) refmessage_show=replace(refmessage,"
"," ") if submit_reffriend="true" and youremail_check="True" and friendemail_check="True" then ''''''''''''send email'''''''''''''''''''''''' refmessage_temp = replace(refmessage," ","%20") refmessage_temp = replace(refmessage,"
"," ") yourname= replace(yourname," ","%20") friendname= replace(friendname,"%20"," ") send_str="mailvar=" & mailvar & "&refyname=" & yourname & "&refyemail=" & youremail & "&reffname=" & friendname & "&reffemail=" & friendemail & "&refmessage=" & refmessage_temp Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") xmlhttp.Open "POST", "http://" & hosting_internal_serverip & "/builder/ref.asp", False xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" xmlhttp.send send_str If xmlhttp.Status = 200 Then ' Response from server was success xmlresponse=xmlhttp.responseText 'Response.Write xmlresponse end if errormsg="success" elseif submit_reffriend="true" and youremail_check<>"True" and friendemail_check<>"True" then errormsg="proper_email_youremail_friendemail" elseif submit_reffriend="true" and youremail_check<>"True" and friendemail_check="True" then errormsg="proper_email_youremail" elseif submit_reffriend="true" and youremail_check="True" and friendemail_check<>"True" then errormsg="proper_email_friend" end if 'Response.Write "submit_reffriend=" & submit_reffriend & "
" 'Response.Write "youremail_check=" & youremail_check & "
" 'Response.Write "friendemail_check=" & friendemail_check & "
" 'Response.Write "errormsg=" & errormsg & "
" Function ValidateEmail(Expression) Dim objRegExp Set objRegExp = New RegExp objRegExp.Pattern = "^[\w\.-]+@[\w\.-]+\.[a-zA-Z]+$" ValidateEmail = objRegExp.Test(Expression) End Function %> <%if len(ref_browsertitle)> 0 then%> <%=ref_browsertitle%> <%else%> <%=htmltitleindex%> <%end if %>

<%=namevar%>

<%=sloganvar%>

<% if submit_reffriend<>"true" then%>
<%=reftitle%>
<%=refynametitle%> :
<%=refyemailtitle%>:
<%=reffnametitle%> :
<%=reffemailtitle%> :
<%=refmessagetitle%>:
<%elseif submit_reffriend="true" and errormsg="proper_email_youremail_friendemail" then%>
Please provide proper " <%=refyemailtitle%> " and " <%=reffemailtitle%> "

<%elseif submit_reffriend="true" and errormsg="proper_email_youremail" then%>
Please provide proper " <%=refyemailtitle%> "

<%elseif submit_reffriend="true" and errormsg="proper_email_friend" then%>
Please provide proper " <%=reffemailtitle%> "

<%elseif submit_reffriend="true" and errormsg="success" then%>
<%=refsuccess%>

<%end if %>
<% if storetype<>"storenone" and storeenabled="yes" and len(storetype)>0 and totalstorecats>0 then%> <% end if %>
<%if totalmainpages>=1 then%> " title="<%=parsetitle(mpbtntitle1)%>"><%=parsetitle(mpbtntitle1)%> <%end if %> <%if totalmainpages>=2 then%> | " title="<%=parsetitle(mpbtntitle2)%>"><%=parsetitle(mpbtntitle2)%> <%end if %> <%if totalmainpages>=3 then%> | " title="<%=parsetitle(mpbtntitle3)%>"><%=parsetitle(mpbtntitle3)%> <%end if %> <%if totalmainpages>=4 then%> | " title="<%=parsetitle(mpbtntitle4)%>"><%=parsetitle(mpbtntitle4)%> <%end if %> <%if totalmainpages>=5 then%> | " title="<%=parsetitle(mpbtntitle5)%>"><%=parsetitle(mpbtntitle5)%> <%end if %> <%if totalmainpages>=6 then%> | " title="<%=parsetitle(mpbtntitle6)%>"><%=parsetitle(mpbtntitle6)%> <%end if %> <%if totalmainpages>=7 then%> | " title="<%=parsetitle(mpbtntitle7)%>"><%=parsetitle(mpbtntitle7)%> <%end if %> <%if totalmainpages>=8 then%> | " title="<%=parsetitle(mpbtntitle8)%>"><%=parsetitle(mpbtntitle8)%> <%end if %> <%if totalmainpages>=9 then%> | " title="<%=parsetitle(mpbtntitle9)%>"><%=parsetitle(mpbtntitle9)%> <%end if %> <%if totalmainpages>=10 then%> | " title="<%=parsetitle(mpbtntitle10)%>"><%=parsetitle(mpbtntitle10)%> <%end if %> <%if totalusefullinkspagelinks>=1 then%> | Useful Links <%end if %> | Site Map

<%=htmltextindex%>
<% if copyrightenabled="true" then %> <% end if %>
<%=view_flashsite_text%>
Designer Websites by SiteCube.com ©<%=copyright_year%>. All Rights Reserved.