<% 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 name=Request.Form("name") email=Request.Form("email") phone=Request.Form("phone") comments=Request.Form("comments") submit_contact=Request.Form("submit_contact") verificationCode=Request.Form("verificationCode") email_check=ValidateEmail(email) 'Response.Write "email_check=" & email_check if email_check="True" and submit_contact="true" then ''''''''''''send email'''''''''''''''''''''''' 'Response.Write "verificationCode form=" & verificationCode 'Response.Write "verificationCode ses=" & session("verificationCode") if verificationCode <> session("verificationCode") then errormsg="Wrong characters entered" elseif verificationCode = session("verificationCode") then contactfieldtitle1_temp = replace(contactfieldtitle1," ","%20") contactfieldtitle2_temp = replace(contactfieldtitle2," ","%20") contactfieldtitle3_temp = replace(contactfieldtitle3," ","%20") contactfieldtitle4_temp = replace(contactfieldtitle4," ","%20") contactfield1_temp = replace(name," ","%20") contactfield2_temp = replace(email," ","%20") contactfield3_temp = replace(phone," ","%20") contactfield4_temp = replace(comments," ","%20") send_str="siteid=" & siteid & "&mailvar=" & mailvar & "&contactfieldtitle1=" & contactfieldtitle1_temp & "&contactfieldtitle2=" & contactfieldtitle2_temp & "&contactfieldtitle3=" & contactfieldtitle3_temp & "&contactfieldtitle4=" & contactfieldtitle4_temp & "&contactfield1=" & contactfield1_temp & "&contactfield2=" & contactfield2_temp & "&contactfield3=" & contactfield3_temp & "&contactfield4=" & contactfield4_temp Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") xmlhttp.Open "POST", "http://" & hosting_internal_serverip & "/builder/contact.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 session("verificationCode") = "" errormsg="success" end if else errormsg="proper_email" end if Function ValidateEmail(Expression) Dim objRegExp Set objRegExp = New RegExp objRegExp.Pattern = "^[\w\.-]+@[\w\.-]+\.[a-zA-Z]+$" ValidateEmail = objRegExp.Test(Expression) End Function imageverificationpath = "http://" & hosting_serverip & "/imageverification.asp" %> <%if len(contact_browsertitle)> 0 then%> <%=contact_browsertitle%> <%else%> <%=htmltitleindex%> <%end if %>

<%=namevar%>

<%=sloganvar%>

<% if contacttype="form" then %>
<% if submit_contact<>"true" then%>

<%=contacttitle%>

<%=contacttext%>
<%=mailvar%>
<%=contactfieldtitle1%>:
<%=contactfieldtitle2%>:
<%=contactfieldtitle3%>:
<%=contactfieldtitle4%>
Registration Check:
Type the characters that you see in this picture.
Verify Code
<%elseif errormsg="Wrong characters entered" then%>
Wrong characters entered in the verification code !

<%elseif submit_contact="true" and errormsg="proper_email" then%>
Please provide proper " <%=contactfieldtitle2%> "

<%elseif submit_contact="true" and errormsg="success" then%>
<%=contactsuccess%>

<%end if %>
<% else %>

<%=contacttitle%>

<%=contacttext%>
<%=mailvar%>
<% 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.