<% Function Randomizer(myLength) Const minLength = 4 Const maxLength = 8 Dim X, Y, strPW If myLength = 0 Then Randomize myLength = Int((maxLength * Rnd) + minLength) End If For X = 1 To myLength Y = Int((3 * Rnd) + 1) Select Case Y Case 1 Randomize strPW = strPW & CHR(Int((9 * Rnd) + 48)) Case 2 Randomize strPW = strPW & CHR(Int((25 * Rnd) + 65)) Case 3 Randomize strPW = strPW & CHR(Int((25 * Rnd) + 97)) End Select Next Randomizer = strPW End Function %> <% 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") verification2=Request.Form("verification2") random_activation=Request.Form("random_activation") 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 <> verification2 then errormsg="Wrong characters entered" elseif verificationCode = verification2 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.
(Letters are case-sensitive.)
<% dim image_num randomize image_num=int(rnd*9)+1 '1 to 10 select case image_num case 1 image_num="captchaimage1.jpg" case 2 image_num="captchaimage2.jpg" case 3 image_num="captchaimage3.jpg" case 4 image_num="captchaimage4.jpg" case 5 image_num="captchaimage5.jpg" case 6 image_num="captchaimage6.jpg" case 7 image_num="captchaimage7.jpg" case 8 image_num="captchaimage8.jpg" case 9 image_num="captchaimage9.jpg" case 10 image_num="captchaimage10.jpg" end select %> <% 'Dimensidon variables Dim WriteDigitLoopCount 'Loop counter to display the code dim randnum randnum = Randomizer(6) random_activation = Randomizer(36) For WriteDigitLoopCount = 1 to Len(randnum) Response.Write(" " & Mid(randnum, WriteDigitLoopCount, 1) & " ") next %>

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