<%
' Start of Code
' Form Fields Names
'Required
' "FORMGOTOPAGE"
' "FORMEMAILTO"
'Optional
' "FORMREQUESTOR"
' "NAME"
' "FIRST"
' "LAST"
' "EMAIL"
' "PHONE"
' "COMPANY"
' "ADDRESS1"
' "ADDRESS2"
' "CITY"
' "STATE"
' "ZIP"
' "COMMENT"
' Server Variables Captured
' XHTTP_REFERER (from pager)
' XREMOTE_ADDR (user ip address)
' XREMOTE_HOST (user ip host)
' XHTTP_USER_AGENT (user browser)
' XSERVER_NAME (website name)
dim HTMLBodyX,HTMLBodyX2,HTMLBodyX3,xSubject,xh,XBODY,XFORMSTRING
dim XHTTP_REFERER,XREMOTE_ADDR,XREMOTE_HOST,XHTTP_USER_AGENT,XSERVER_NAME
dim xname,xfirst,xlast,xcompany,xaddress1,xaddress2,xcity,xstate,xzip,xemail,xcomment,xphone,xformrequestor,xFORMGOTOPAGE,XFORMEMAILTO
for each x in Request.Querystring
XFORMSTRING = XFORMSTRING & trim(x) & trim((Request.Querystring(x))) & "~"
if ucase(trim(x)) = "FORMEMAILTO" then
xFORMEMAILTO = trim((Request.Querystring(x)))
end if
HTMLBody = HTMLBody & "| " & trim(x) & " | "
HTMLBody = HTMLBody & trim((Request.Querystring(x)))
HTMLBody = HTMLBody & " |
" & vbCrLf
if ucase(trim(x)) = "FORMREQUESTOR" then
xFORMREQUESTOR = trim((Request.Querystring(x)))
xh =xh & "| " & "FORMREQUESTOR" & " | " & _
xFORMREQUESTOR & " |
" & vbCrLf
elseif ucase(trim(x)) = "NAME" then
xname = trim((Request.Querystring(x)))
xh = xh & "| " & "NAME" & " | " & _
xname & " |
" & vbCrLf
elseif ucase(trim(x)) = "FIRST" then
xFIRST = trim((Request.Querystring(x)))
xh = xh & "| " & "FIRST" & " | " & _
xFIRST & " |
" & vbCrLf
elseif ucase(trim(x)) = "LAST" then
xLAST = trim((Request.Querystring(x)))
xh = xh & "| " & "LAST" & " | " & _
xLAST & " |
" & vbCrLf
elseif ucase(trim(x)) = "EMAIL" then
xemail = trim((Request.Querystring(x)))
xh = xh & "| " & "EMAIL" & " | " & _
xEMAIL & " |
" & vbCrLf
elseif ucase(trim(x)) = "PHONE" then
xPHONE = trim((Request.Querystring(x)))
xh = xh & "| " & "PHONE" & " | " & _
xPHONE & " |
" & vbCrLf
elseif ucase(trim(x)) = "COMPANY" then
xCOMPANY = trim((Request.Querystring(x)))
xh = xh & "| " & "COMPANY" & " | " & _
xCOMPANY & " |
" & vbCrLf
elseif ucase(trim(x)) = "ADDRESS1" then
xADDRESS1 = trim((Request.Querystring(x)))
xh = xh & "| " & "ADDRESS1" & " | " & _
xADDRESS1 & " |
" & vbCrLf
elseif ucase(trim(x)) = "ADDRESS2" then
xADDRESS2 = trim((Request.Querystring(x)))
xh = xh & "| " & "ADDRESS2" & " | " & _
xADDRESS2 & " |
" & vbCrLf
elseif ucase(trim(x)) = "CITY" then
xCITY = trim((Request.Querystring(x)))
xh = xh & "| " & "CITY" & " | " & _
xCITY & " |
" & vbCrLf
elseif ucase(trim(x)) = "STATE" then
xSTATE = trim((Request.Querystring(x)))
xh = xh & "| " & "STATE" & " | " & _
xSTATE & " |
" & vbCrLf
elseif ucase(trim(x)) = "ZIP" then
xZIP = trim((Request.Querystring(x)))
xh = xh & "| " & "ZIP" & " | " & _
xZIP & " |
" & vbCrLf
elseif ucase(trim(x)) = "COMMENT" then
xCOMMENT = trim((Request.Querystring(x)))
xh = xh & "| " & "COMMENT" & " | " & _
xCOMMENT & " |
" & vbCrLf
elseif ucase(trim(x)) = "FORMGOTOPAGE" then
xFORMGOTOPAGE = trim((Request.Querystring(x)))
xh = xh & "| " & "FORMGOTOPAGE" & " | " & _
xFORMGOTOPAGE & " |
" & vbCrLf
End If
next
XHTTP_REFERER = (Request.ServerVariables("HTTP_REFERER"))
XREMOTE_ADDR = (Request.ServerVariables("REMOTE_ADDR"))
XREMOTE_HOST = (Request.ServerVariables("REMOTE_HOST"))
XHTTP_USER_AGENT =(Request.ServerVariables("HTTP_USER_AGENT"))
XSERVER_NAME =(Request.ServerVariables("SERVER_NAME"))
HTMLBody3 = HTMLBody3 & "| " & "HTTP_REFERER (From Page)" & " | " & xHTTP_REFERER & " |
" & vbCrLf
HTMLBody3 = HTMLBody3 & "| " & "REMOTE_ADDR (User IP Address)" & " | " & xREMOTE_ADDR & " |
" & vbCrLf
HTMLBody3 = HTMLBody3 & "| " & "REMOTE_HOST (User IP Host)" & " | " & xREMOTE_HOST & " |
" & vbCrLf
HTMLBody3 = HTMLBody3 & "| " & "HTTP_USER_AGENT (User Browser)" & " | " & xHTTP_USER_AGENT & " |
" & vbCrLf
HTMLBody3 = HTMLBody3 & "| " & "SERVER_NAME (Website name)" & " | " & xSERVER_NAME & " |
" & vbCrLf
HTMLBody2 = "" & "| Parsed Fields Stored in Database |
" _
& xh & "| Server Fields |
" _
& HTMLBody3 & "| All Form Fields |
" & HTMLBody
HTMLBody2 = HTMLBody2 & "
"
HTMLBody2 = HTMLBody2 & "