<% 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 'XXXXXXXXXX MEGA LOG FUNCTION START XXXXXXXXX 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX Function MegaLog(ByVal Data) Dim ML : ML = -1 'On Error Resume Next Dim SSL : If Request.ServerVariables("HTTPS") = "on" Then SSL = True Else SSL = False Dim SN : SN = Request.ServerVariables("SERVER_NAME") Dim rrQS : If Request.QueryString = "" Then rrQS = "" Else rrQS = "?" & Request.QueryString Dim URL If SSL Then URL = "https://" & SN & Request.ServerVariables("SCRIPT_NAME") & rrQS Else URL = "http://" & SN & Request.ServerVariables("SCRIPT_NAME") & rrQS End If Dim MegaLogSQL : MegaLogSQL = "" & _ "SET NOCOUNT ON" & vbCrLf & _ "DECLARE @RC int" & vbCrLf & _ "DECLARE @DateAdded datetime" & vbCrLf & _ "DECLARE @FilePath nvarchar(500)" & vbCrLf & _ "DECLARE @URL nvarchar(500)" & vbCrLf & _ "DECLARE @RemoteIP varchar(15)" & vbCrLf & _ "DECLARE @Browser nvarchar(500)" & vbCrLf & _ "DECLARE @SessionID nvarchar(50)" & vbCrLf & _ "DECLARE @Data nvarchar(max)" & vbCrLf & _ "" & vbCrLf & _ "SET @DateAdded = GETDATE()" & vbCrLf & _ "SET @FilePath = '" & Request.ServerVariables("PATH_TRANSLATED") & "'" & vbCrLf & _ "SET @URL = '" & URL & "'" & vbCrLf & _ "SET @RemoteIP = '" & Request.ServerVariables("REMOTE_ADDR") & "'" & vbCrLf & _ "SET @Browser = '" & Replace(Request.ServerVariables("HTTP_USER_AGENT"),"'","") & "'" & vbCrLf & _ "SET @SessionID = '" & Session.SessionID & "'" & vbCrLf & _ "SET @Data = '" & Data & "'" & vbCrLf & _ "" & vbCrLf & _ "EXECUTE @RC = [i4Info].[dbo].[NewMegaLog] " & vbCrLf & _ " @DateAdded" & vbCrLf & _ " ,@FilePath" & vbCrLf & _ " ,@URL" & vbCrLf & _ " ,@RemoteIP" & vbCrLf & _ " ,@Browser" & vbCrLf & _ " ,@SessionID" & vbCrLf & _ " ,@Data" & vbCrLf & _ "SET NOCOUNT OFF" & vbCrLf & _ "SELECT @RC" & vbCrLf & _ "" If err.Number = 0 Then Dim MegaLogCnn : Set MegaLogCnn = Server.CreateObject("ADODB.Connection") MegaLogCnn.Open "PROVIDER=SQLNCLI;DRIVER={SQL Server};SERVER=i4DB\MS2005;DATABASE=i4Info;UID=i4Info;PWD=1JWwch" If err.Number = 0 Then ML = MegaLogCnn.Execute(MegaLogSQL)(0) End If MegaLogCnn.Close() Set MegaLogCnn = Nothing End If MegaLog = ML End Function 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 'XXXXXXXXXX MEGA LOG FUNCTION END XXXXXXXXX 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX %><% page = "contact" %> <% set rs = server.createobject("ADODB.recordset") cID = getInt(request("cID")) if(cID = 0)then sql = "SELECT TOP 1 ContactUsID FROM ContactUs WHERE Active='yes' ORDER BY Rank" set rs = cnn.execute(sql) if not rs.eof then cID = rs("ContactUsID") rs.close() end if sql = "SELECT * FROM ContactUs WHERE ContactUsID=" & cID rs.open sql, cnn, 1, 2 if not rs.eof then to_email = rs.fields("Email") to_name = rs.fields("Title") %> <% if(len(rs.fields("Phone")) > 0)then %> <% end if %> <% if(len(rs.fields("Fax")) > 0)then %> <% end if %> <% if(len(rs.fields("Email")) > 0)then %> <% end if %> <% if(rs.fields("MapImg") <> "No File")then %> <% if(len(rs("StoreHours")) > 0)then %> <% end if %> <% end if %>
<%= rs.fields("Title") %>Phone: <%= rs.fields("Phone") %>
<%= rs.fields("Address") %>Fax: <%= rs.fields("Fax") %>
<%= rs.fields("City")&", "&rs.fields("State")&"  "&rs.fields("Zipcode") %>Email: " target="_blank"><%= rs.fields("Email") %>
');">View MapStore Hours: <%= replace(rs("StoreHours"), vbcrlf, "
") %>
<% end if rs.close() if(len(request("submit")) > 0)then from_name = parseChars(request("name")) from_phone = parseChars(request("phone")) from_email = parseChars(request("email")) from_comp = parseChars(request("company")) from_comments = parseChars(request("comments")) from_addr = parseChars(request("address")) from_city = parseChars(request("city")) from_state = parseChars(request("state")) from_zip = parseChars(request("zip")) Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "mail.i4.net" Mailer.FromName = request("name") & " (" & request("phone") & ")" Mailer.FromAddress = request("email") Mailer.AddRecipient to_name, to_email if(len(request("subject_txt")) = 0 and len(request("subject_lst")) > 0)then subj_array = split(request("subject_lst"), "|") subj_str = subj_array(0) if(len(to_email) > 0)then Mailer.AddRecipient "", subj_array(1) end if else subj_str = parseChars(request("subject_txt")) end if Mailer.Subject = subj_str Mailer.BodyText = from_comments 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 'XXXXXXXXXX MEGA LOG START XXXXXXXXX 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX MegaLogDebugData = "ASPMAIL LOGGING: " & _ "RemoteHost : " & Mailer.RemoteHost & vbCrLf & _ "ContentType : " & Mailer.ContentType & vbCrLf & _ "FromName: " & Mailer.FromName & vbCrLf & _ "FromAddress: " & Mailer.FromAddress & vbCrLf & _ "Subject: " & Mailer.Subject & vbCrLf & _ "" If MegaLog(MegaLogDebugData) = 2 Then Response.End 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 'XXXXXXXXXX MEGA LOG END XXXXXXXXX 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX if not Mailer.SendMail() then rTxt = "* Could Not Send Email: "&Mailer.response else rTxt = "* Email Went Through Successfully" end if sql = "INSERT INTO ContactUsForm VALUES"&_ "(0, 'yes', '"&from_name&"', '"&from_comp&"', "&_ "'"&from_email&"', '"&from_phone&"', '"&subj_str&"', "&_ "'"&from_comments&"', '"&from_addr&"', '"&from_city&"', "&_ "'"&from_state&"', '"&from_zip&"', getdate())" cnn.execute(sql) end if %>

<% if(len(rTxt) > 0)then response.write("") end if %>
"&rTxt&"
* Name: Company:
Address: Phone:
City: Fax:
Province / Postal: * Email:
* Subject:
* Comments: