<%
' Purpose: Add top tech links
tl_add TL_ThisPage, "Online Technical Request Form"
%>
<%
'============================================================================
' Purpose: Form to submit technical help via the web
' Author: Kham Vue
' Date: 2002.07.22
' Revision:
'2003.08.18 - Added ID field subject for tracking purposes
'============================================================================
Dim SubjectLine
SubjectLine = "ID: #" & GetIDNow & " Tech Request from SUPPORT.WADSNET.COM"
Function GetIDNow()
dim d, t, ret
d = formatdatetime(now,2)
t = formatdatetime(now,4)
ret = decap(d,"/")
ret = ret & decap(d,"/")
ret = decap(d,"/") & ret
ret = ret & decap(t,":")
ret = ret & t
getIDNow = ret
end function
Function decap(s,search)
dim pos, tmp
pos = instr(1,s,search)
if pos = 0 then pos = len(s) +1
tmp = left(s,pos-1)
s = mid(s,pos+1)
if len(tmp) > 2 then
tmp = right(tmp,2)
elseif len(tmp) < 2 then
tmp = "0" & tmp
end if
decap = tmp
end function
Const FormMail = "http://raq4r.wadsnet.net/cgi-bin/FormMail.cgi"
Const Required = "realname,account_no,address,email,phone,BestTimeToReachCustomer,Problem"
Const EmailTo = "support@wadsnet.com"
Const TopLine = "The following is a technical request from http://support.wadsnet.com/techhelp"
Const RedirectMe = "http://support.wadsnet.com/techhelp/thankyou.htm"
%>
WADSNET Tech Help Request page