Fourth pass at adding key files
This commit is contained in:
dsainty
10
site/slowtwitch.com/www/secure/AAWSecureFormTag.asp
Normal file
10
site/slowtwitch.com/www/secure/AAWSecureFormTag.asp
Normal file
@ -0,0 +1,10 @@
|
||||
<!-- Start Insert Here -->
|
||||
<form action="https://Secure.Aawsom.net/forms/FormProcessor.asp" method="POST" name="Comment_Form">
|
||||
<input type="hidden" name="MailTo" value="CustomerService@YourWebsite.com">
|
||||
<input type="hidden" name="MailFromDefault" value="NoEmail@YourWebsite.com">
|
||||
<input type="hidden" name="MailFromField" value="Email">
|
||||
<input type="hidden" name="MailSubject" value="Contact">
|
||||
<input type="hidden" name="MailRedirectSecure" value="Secure.Aawsom.net/VirtualX/YourUsername/secure/thanks.htm">
|
||||
<input type="hidden" name="Time" value="<%=Now()%>">
|
||||
<input type="hidden" name="Browser" value="<%=Request.ServerVariables("HTTP_User_Agent")%>">
|
||||
<!-- End Insert Here -->
|
||||
11
site/slowtwitch.com/www/secure/AAWformtag.asp
Normal file
11
site/slowtwitch.com/www/secure/AAWformtag.asp
Normal file
@ -0,0 +1,11 @@
|
||||
<!-- Start Insert Here -->
|
||||
<form action="http://Secure4.Aawsom.net/forms/FormProcessor.asp" method="POST" name="Comment_Form">
|
||||
<input type="hidden" name="MailTo" value="CustomerService@YourWebsite.com">
|
||||
<input type="hidden" name="MailFromDefault" value="NoEmail@YourWebsite.com">
|
||||
<input type="hidden" name="MailFromField" value="Email">
|
||||
<input type="hidden" name="MailSubject" value="Contact">
|
||||
<input type="hidden" name="MailRedirect" value="www.YourWebsite.com/thanks.htm">
|
||||
<input type="hidden" name="Time" value="<%=Now()%>">
|
||||
<input type="hidden" name="Browser" value="<%=Request.ServerVariables("HTTP_User_Agent")%>">
|
||||
<!-- End Insert Here -->
|
||||
|
||||
11
site/slowtwitch.com/www/secure/CDONTS.txt
Normal file
11
site/slowtwitch.com/www/secure/CDONTS.txt
Normal file
@ -0,0 +1,11 @@
|
||||
'This is the code which one can use to send email. Make sure that each field is filled. - Steve
|
||||
|
||||
Set objMail = CreateObject("CDONTS.Newmail")
|
||||
objMail.From = request.form("fEmail")
|
||||
objMail.To = "steve@aawsom.net"
|
||||
objMail.Subject = "AawsomNet Sign Up"
|
||||
objMail.Body = sBody
|
||||
objMail.Send
|
||||
Set objMail = Nothing
|
||||
|
||||
|
||||
285
site/slowtwitch.com/www/secure/FormProcessor.asp
Normal file
285
site/slowtwitch.com/www/secure/FormProcessor.asp
Normal file
@ -0,0 +1,285 @@
|
||||
<%@ LANGUAGE="VBSCRIPT" %>
|
||||
<% Option Explicit %>
|
||||
|
||||
<script RUNAT="Server" LANGUAGE="VBScript">
|
||||
|
||||
Function MailIt(sFrom,sTo,sSub,sBody)
|
||||
|
||||
' response.write "From:" & sFrom & "To:" & sTo & "Sub:" & sSub & "Body:" & sBody
|
||||
|
||||
On Error Resume Next 'prevent the code from haltng on an error
|
||||
dim oMail
|
||||
|
||||
MailIt=false
|
||||
Set oMail = Server.CreateObject("CDONTS.Newmail")
|
||||
oMail.From = sFrom
|
||||
oMail.To = sTo
|
||||
oMail.Subject = sSub
|
||||
oMail.Body = sBody
|
||||
oMail.Send
|
||||
|
||||
If Err.Number <> 0 then
|
||||
response.write "Error1 Found:" & Err.Number & " " & Err.Description
|
||||
end if
|
||||
|
||||
Set oMail = nothing
|
||||
|
||||
If Err.Number = 0 then
|
||||
MailIt = true
|
||||
Else
|
||||
response.write "Error Found:" & Err.Number & " " & Err.Description
|
||||
End If
|
||||
|
||||
End Function
|
||||
|
||||
Function Cr2br(sIn)
|
||||
Dim sLen
|
||||
Dim iCount
|
||||
Dim iPos
|
||||
Dim sCr
|
||||
Dim sLf
|
||||
|
||||
sCr = chr(13)
|
||||
sLf = chr(10)
|
||||
|
||||
sLen = len(sIn)
|
||||
Cr2br = ""
|
||||
for iPos = 1 to sLen
|
||||
if (mid(sIn,iPos,1) = sCr) then
|
||||
Cr2br=Cr2br & "<br>"
|
||||
iPos=iPos+1
|
||||
else
|
||||
Cr2br=Cr2br & mid(sIn,iPos,1)
|
||||
end If
|
||||
next
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
</script>
|
||||
|
||||
<%
|
||||
Dim i, j, br, lf
|
||||
Dim iByteCount, sData, sTemp, bResponse, sEnd
|
||||
Dim sTo, sFrom, sSubject, sBody, bDataOK, sWebBody, sMessage
|
||||
Dim sFromField, bFromField, sRedirect, bRedirect, bRedirectIsSecure
|
||||
Dim aData, aPermit(), iCount, sLeadIn
|
||||
|
||||
br = "<BR>"
|
||||
lf = Chr(13) & Chr(10)
|
||||
sLeadIn = "The following information was sent:"
|
||||
|
||||
'Grab data from header in byte forma
|
||||
iByteCount = Request.TotalBytes
|
||||
sTemp = Request.BinaryRead(iByteCount)
|
||||
|
||||
'Convert byte data into string data
|
||||
For i = 1 to iByteCount
|
||||
sData = sData & Chr(AscB(MidB(sTemp,i,1)))
|
||||
Next
|
||||
|
||||
'Replace Query String substitution characters
|
||||
sData = Replace(sData, "+", " ")
|
||||
sData = Replace(sData, "=", ": ")
|
||||
|
||||
'Put each value into individual array element
|
||||
aData = Split(sData, "&", -1, 1)
|
||||
|
||||
'Get count of number of entries
|
||||
On Error Resume Next
|
||||
i = 0
|
||||
iCount = 0
|
||||
Do
|
||||
If NOT IsEmpty(aData(i)) then
|
||||
if Err.Number = 0 then
|
||||
iCount = iCount+1
|
||||
Else
|
||||
Exit Do
|
||||
End If
|
||||
end If
|
||||
i=i+1
|
||||
Loop
|
||||
|
||||
'Replace UUEncoding
|
||||
For i = 0 to iCount-1
|
||||
aData(i) = Replace(aData(i), "%21", Chr(33)) '!
|
||||
aData(i) = Replace(aData(i), "%22", Chr(34)) '"
|
||||
aData(i) = Replace(aData(i), "%23", Chr(35)) '#
|
||||
aData(i) = Replace(aData(i), "%24", Chr(36)) '$
|
||||
aData(i) = Replace(aData(i), "%25", Chr(37)) '%
|
||||
aData(i) = Replace(aData(i), "%26", Chr(38)) '&
|
||||
aData(i) = Replace(aData(i), "%27", Chr(39)) ''
|
||||
aData(i) = Replace(aData(i), "%28", Chr(40)) '(
|
||||
aData(i) = Replace(aData(i), "%29", Chr(41)) ')
|
||||
aData(i) = Replace(aData(i), "%2A", Chr(42)) '*
|
||||
aData(i) = Replace(aData(i), "%2B", Chr(43)) '+
|
||||
aData(i) = Replace(aData(i), "%2C", Chr(44)) ',
|
||||
aData(i) = Replace(aData(i), "%2D", Chr(45)) '-
|
||||
aData(i) = Replace(aData(i), "%2E", Chr(46)) '.
|
||||
aData(i) = Replace(aData(i), "%2F", Chr(47)) '/
|
||||
aData(i) = Replace(aData(i), "%3A", Chr(58)) ':
|
||||
aData(i) = Replace(aData(i), "%3B", Chr(59)) ';
|
||||
aData(i) = Replace(aData(i), "%3C", Chr(60)) '<
|
||||
aData(i) = Replace(aData(i), "%3D", Chr(61)) '=
|
||||
aData(i) = Replace(aData(i), "%3E", Chr(62)) '>
|
||||
aData(i) = Replace(aData(i), "%3F", Chr(63)) '?
|
||||
aData(i) = Replace(aData(i), "%40", Chr(64)) '@
|
||||
aData(i) = Replace(aData(i), "%5B", Chr(91)) '[
|
||||
aData(i) = Replace(aData(i), "%5C", Chr(92)) '\
|
||||
aData(i) = Replace(aData(i), "%5D", Chr(93)) ']
|
||||
aData(i) = Replace(aData(i), "%5E", Chr(94)) '^
|
||||
aData(i) = Replace(aData(i), "%5F", Chr(95)) '_
|
||||
aData(i) = Replace(aData(i), "%60", Chr(96)) ''
|
||||
aData(i) = Replace(aData(i), "%7B", Chr(123)) '{
|
||||
aData(i) = Replace(aData(i), "%7C", Chr(123)) '|
|
||||
aData(i) = Replace(aData(i), "%7D", Chr(123)) '}
|
||||
aData(i) = Replace(aData(i), "%7E", Chr(123)) '~
|
||||
aData(i) = Replace(aData(i), "%0D", Chr(13)) 'Carriage Return
|
||||
aData(i) = Replace(aData(i), "%0A", Chr(10)) 'Line Feed
|
||||
Next
|
||||
|
||||
Redim aPermit(iCount)
|
||||
|
||||
For i = 0 to iCount-1
|
||||
aPermit(i) = True
|
||||
If Left(aData(i),Len("MailTo")) = "MailTo" Then
|
||||
sTo = Mid(aData(i),Len("MailTo")+3)
|
||||
' Response.write i & " Found MailTo: " & sTo & "<BR>"
|
||||
aPermit(i) = False
|
||||
End If
|
||||
If Left(aData(i),Len("MailFromDefault")) = "MailFromDefault" Then
|
||||
sFrom = Mid(aData(i),Len("MailFromDefault")+3)
|
||||
aPermit(i) = False
|
||||
' Response.write i & " Found MailFromDefault: " & sFrom & "<BR>"
|
||||
aPermit(i) = False
|
||||
End If
|
||||
If Left(aData(i),Len("MailFromField")) = "MailFromField" Then
|
||||
sFromField = Mid(aData(i),Len("MailFromField")+3)
|
||||
' Response.write i & " Found MailFromField: " & sFromField & "<BR>"
|
||||
bFromField = True
|
||||
aPermit(i) = False
|
||||
End If
|
||||
If Left(aData(i),Len("MailSubject")) = "MailSubject" Then
|
||||
sSubject = Mid(aData(i),Len("MailSubject")+3)
|
||||
' Response.write i & " Found MailSubject: " & sSubject & "<BR>"
|
||||
aPermit(i) = False
|
||||
End If
|
||||
If Left(aData(i),Len("MailRedirect")) = "MailRedirect" Then
|
||||
sRedirect = "http://" & Mid(aData(i),Len("MailRedirect")+3)
|
||||
' Response.write i & " Found MailRedirect: " & sRedirect & "<BR>"
|
||||
bRedirect = True
|
||||
aPermit(i) = False
|
||||
End If
|
||||
If Left(aData(i),Len("MailRedirectSecure")) = "MailRedirectSecure" Then
|
||||
sRedirect = "https://" & Mid(aData(i),Len("MailRedirectSecure")+3)
|
||||
' Response.write i & " Found MailRedirectSecure: " & sRedirect & "<BR>"
|
||||
bRedirect = True
|
||||
aPermit(i) = False
|
||||
End If
|
||||
If Left(aData(i),Len("MailLeadIn")) = "MailLeadIn" Then
|
||||
'Only Assign if NOT blank
|
||||
If Mid(aData(i),Len("MailLeadIn")+3) <> 0 then
|
||||
sLeadIn = Mid(aData(i),Len("MailLeadIn")+3)
|
||||
End If
|
||||
aPermit(i) = False
|
||||
' Response.write i & " Found MailLeadIn: " & sLeadIn & "<BR>"
|
||||
End If
|
||||
Next
|
||||
|
||||
'if MailFromField = true, then find FromField Value
|
||||
If bFromField = True Then
|
||||
For i = 0 to iCount-1
|
||||
If Left(aData(i),Len(sFromField)) = sFromField Then
|
||||
'Only Assign if NOT blank (3 is necessary to remove filler)
|
||||
'***This Section could use some work ensuring email is valid - like ...,; etc ***
|
||||
If Len(Trim(Mid(aData(i),Len(sFromField)+3))) > 0 then
|
||||
sFrom = Mid(aData(i),Len(sFromField)+3)
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
'Create Body of Message
|
||||
sBody = sLeadIn & lf & lf
|
||||
For i = 0 to iCount-1
|
||||
If aPermit(i) = True Then
|
||||
sBody = sBody & aData(i) & lf
|
||||
End If
|
||||
Next
|
||||
|
||||
'Check that there is enough data to send mail
|
||||
bDataOK = True
|
||||
If len(sFrom) = 0 Then
|
||||
bDataOK = False
|
||||
sMessage = "No FROM Element.<BR>"
|
||||
End If
|
||||
|
||||
If len(sTo) = 0 Then
|
||||
bDataOK = False
|
||||
sMessage = "No TO Element.<BR>"
|
||||
End If
|
||||
|
||||
If len(sSubject) = 0 Then
|
||||
bDataOK = False
|
||||
sMessage = "No SUBJECT Element.<BR>"
|
||||
End If
|
||||
|
||||
If len(sBody) = 0 Then
|
||||
bDataOK = False
|
||||
sMessage = "No BODY Content.<BR>"
|
||||
End If
|
||||
|
||||
' Response.Write "To: " & sTo & br
|
||||
' Response.Write "From: " & sFrom & br
|
||||
' Response.Write "Subject: " & sSubject & br
|
||||
' Response.Write "Body: <BR>" & sWebBody
|
||||
|
||||
If bDataOK = False Then
|
||||
%>
|
||||
<html>
|
||||
<Head>
|
||||
<META NAME="GENERATOR" Content="Microsoft Visual InterDev 1.0">
|
||||
<META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
|
||||
<title>An Error Occurred</title>
|
||||
</head>
|
||||
|
||||
<body bgcolor="FFFFFF">
|
||||
|
||||
<h1 align="center"><font color="#FF0000">An Error Occurred:</font></h1>
|
||||
|
||||
<p>An Error Occured with this application (Insufficient Data). Please Contact The System
|
||||
Administrator of this website. The form you filled out was NOT configured correctly.<br>
|
||||
<br><br>
|
||||
ERROR:<br>
|
||||
<%= sMessage%><BR><BR>
|
||||
If you should see this message, PLEASE click <a href="Mailto:Webmaster@Aawsom.net">HERE</a>
|
||||
to notify the hostmaster that a problem occurred. Include the name of the website that
|
||||
this error occurred on. It will keep others from having this problem. We apologise that
|
||||
you took the time to fill out this form and that it was NOT delivered due to this site's
|
||||
inability to test their software before implementing it.</p>
|
||||
|
||||
<%
|
||||
Else
|
||||
'Mail It
|
||||
sResult = mailIt(sFrom,sTo,sSubject,sBody)
|
||||
|
||||
'If redirecting to another page, redirect before anything is written to page
|
||||
If bRedirect = True then
|
||||
Response.Redirect sRedirect
|
||||
End If
|
||||
%>
|
||||
<html>
|
||||
<Head>
|
||||
<META NAME="GENERATOR" Content="Microsoft Visual InterDev 1.0">
|
||||
<META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
<title>Form Results</title>
|
||||
</head>
|
||||
<%
|
||||
'Print out the Message
|
||||
sWebBody = Cr2BR(sBody)
|
||||
Response.Write sWebBody
|
||||
End If
|
||||
%>
|
||||
</BODY>
|
||||
</HTML>
|
||||
26
site/slowtwitch.com/www/secure/SecondaryDomains.txt
Normal file
26
site/slowtwitch.com/www/secure/SecondaryDomains.txt
Normal file
@ -0,0 +1,26 @@
|
||||
'This is the code which one can use to redirect a website to a different page or directory.
|
||||
|
||||
<%
|
||||
sDomain=LCase(request.ServerVariables("HTTP_HOST"))
|
||||
Select Case sDomain
|
||||
Case "www.totallyawesome.net", "totallyawesom.net"
|
||||
Response.Redirect "/totally.asp"
|
||||
End Select
|
||||
%>
|
||||
|
||||
Instructions:
|
||||
|
||||
Copy/paste the above clip at the top of your home page,
|
||||
or at the top of an include file that you use for all pages.
|
||||
|
||||
Replace "www.totallyawesome.net" AND "totallyawesome.net" with your domain name.
|
||||
|
||||
Replace "/totally.asp with your own file OR directory, like "/totallyawesome/".
|
||||
|
||||
Add as many case statements as necessary:
|
||||
|
||||
Case "www.totallyawesome.net", "totallyawesom.net"
|
||||
Response.Redirect "/totally.asp"
|
||||
Case "www.totally.com", "totally.com"
|
||||
Response.Redirect "/totally.asp"
|
||||
|
||||
138
site/slowtwitch.com/www/secure/Secureorder.asp
Normal file
138
site/slowtwitch.com/www/secure/Secureorder.asp
Normal file
@ -0,0 +1,138 @@
|
||||
<html>
|
||||
|
||||
<head>
|
||||
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
|
||||
<base face="Arial">
|
||||
<title>Secure Order Form</title>
|
||||
</head>
|
||||
|
||||
<body bgcolor="#FFFFFF" link="#0000FF" vlink="#800000">
|
||||
<div align="left">
|
||||
|
||||
<table border="0" cellpadding="0" cellspacing="0">
|
||||
<tr>
|
||||
<td width="125"><font color="#FF0000"><big>Aawsom<br>
|
||||
Technologies</big></font></td>
|
||||
<td width="5"></td>
|
||||
<td><h1><font color="#FF0000">Secure Order Form</font></h1>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td width="125"></td>
|
||||
<td width="5" bgcolor="#FFFFFF"></td>
|
||||
<td bgcolor="#FFFFFF" align="left"><font face="Arial"><table border="5">
|
||||
<tr>
|
||||
<td>
|
||||
<!-- Start Insert Here -->
|
||||
<form action="https://Secure2.Aawsom.net/forms/FormProcessor.asp" method="POST" name="Comment_Form">
|
||||
<input type="hidden" name="MailTo" value="CustomerService@YourWebsite.com">
|
||||
<input type="hidden" name="MailFromDefault" value="NoEmail@YourWebsite.com">
|
||||
<input type="hidden" name="MailFromField" value="Email">
|
||||
<input type="hidden" name="MailSubject" value="Contact">
|
||||
<input type="hidden" name="MailRedirect" value="www.YourWebsite.com/thanks.htm">
|
||||
<%' <input type="hidden" name="MailRedirectSecure" value="Secure2.Aawsom.net/VirtualXXX/YourUsername/secure/thanks.htm">%>
|
||||
<input type="hidden" name="Time" value="<%=Now()%>">
|
||||
<input type="hidden" name="Browser" value="<%=Request.ServerVariables("HTTP_User_Agent")%>">
|
||||
<!-- End Insert Here -->
|
||||
<hr width="60%" color="#FF0000">
|
||||
<p>Please provide the following ordering information:</p>
|
||||
<table>
|
||||
<tr>
|
||||
<td><strong>QTY</strong></td>
|
||||
<td><strong>DESCRIPTION</strong></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><input TYPE="TEXT" NAME="Order_Qty0" SIZE="6" MAXLENGTH="6"></td>
|
||||
<td><input TYPE="TEXT" NAME="Order_Dsc0" SIZE="45"></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><input TYPE="TEXT" NAME="Order_Qty1" SIZE="6" MAXLENGTH="6"></td>
|
||||
<td><input TYPE="TEXT" NAME="Order_Dsc1" SIZE="45"></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><input TYPE="TEXT" NAME="Order_Qty2" SIZE="6" MAXLENGTH="6"></td>
|
||||
<td><input TYPE="TEXT" NAME="Order_Dsc2" SIZE="45"></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><input TYPE="TEXT" NAME="Order_Qty3" SIZE="6" MAXLENGTH="6"></td>
|
||||
<td><input TYPE="TEXT" NAME="Order_Dsc3" SIZE="45"></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><input TYPE="TEXT" NAME="Order_Qty4" SIZE="6" MAXLENGTH="6"></td>
|
||||
<td><input TYPE="TEXT" NAME="Order_Dsc4" SIZE="45"></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><strong>BILLING</strong></td>
|
||||
<td></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><em>Credit card</em></td>
|
||||
<td><select NAME="Card__Type" size="1">
|
||||
<option SELECTED>VISA </option>
|
||||
<option>MasterCard </option>
|
||||
<option>American Express </option>
|
||||
<option>Diner's Club </option>
|
||||
<option>Discover </option>
|
||||
</select> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>Cardholder name</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Card_Name" SIZE="35"> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>Card number</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Card_Nmbr" SIZE="35"> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>Expiration date</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Card__Exp" SIZE="5" MAXLENGTH="5"> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><strong>SHIPPING</strong></td>
|
||||
<td></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>Street address</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Addrs_Str1" SIZE="35"> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>Address (cont.)</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Addrs_Str2" SIZE="35"> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>City</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Addrs_City" SIZE="35"> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>State/Province</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Addrs_Stat" SIZE="35"> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>Zip/Postal code</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Addrs__Zip" SIZE="12" MAXLENGTH="12"> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>Country</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Addrs_Ctry" SIZE="25"> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>Email Address</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Email" SIZE="25"> </td>
|
||||
</tr>
|
||||
</table>
|
||||
<div align="center"><center><p><input TYPE="submit" VALUE="Submit Form"> </p>
|
||||
</center></div><hr width="60%" color="#FF0000">
|
||||
<div align="center"><center><p><font><small>Designed by: <a href="http://www.Aawsom.net/sitedesign">Aawsom Technologies</a></small></font><br>
|
||||
<font color="#000000" face="Arial" size="1">Revised: <!--webbot bot="Timestamp" S-Type="EDITED" S-Format="%m/%d/%y %I:%M %p" startspan -->09/10/98 01:52 PM<!--webbot bot="Timestamp" endspan i-checksum="29431" --></font></p>
|
||||
</center></div><div align="center"><center><p></font> </p>
|
||||
</center></div>
|
||||
</form>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</div>
|
||||
</body>
|
||||
</html>
|
||||
138
site/slowtwitch.com/www/secure/Testorder.asp
Normal file
138
site/slowtwitch.com/www/secure/Testorder.asp
Normal file
@ -0,0 +1,138 @@
|
||||
<html>
|
||||
|
||||
<head>
|
||||
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
|
||||
<base face="Arial">
|
||||
<title>Secure Order Form</title>
|
||||
</head>
|
||||
|
||||
<body bgcolor="#FFFFFF" link="#0000FF" vlink="#800000">
|
||||
<div align="left">
|
||||
|
||||
<table border="0" cellpadding="0" cellspacing="0">
|
||||
<tr>
|
||||
<td width="125"><font color="#FF0000"><big>Aawsom<br>
|
||||
Technologies</big></font></td>
|
||||
<td width="5"></td>
|
||||
<td><h1><font color="#FF0000">Secure Order Form</font></h1>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td width="125"></td>
|
||||
<td width="5" bgcolor="#FFFFFF"></td>
|
||||
<td bgcolor="#FFFFFF" align="left"><font face="Arial"><table border="5">
|
||||
<tr>
|
||||
<td>
|
||||
<!-- Start Insert Here -->
|
||||
<form action="https://Secure2.Aawsom.net/forms/FormProcessor.asp" method="POST" name="Comment_Form">
|
||||
<input type="hidden" name="MailTo" value="Support@Aawsom.net">
|
||||
<input type="hidden" name="MailFromDefault" value="NoEmail@Aawsom.net">
|
||||
<input type="hidden" name="MailFromField" value="Email">
|
||||
<input type="hidden" name="MailSubject" value="Test Form">
|
||||
<input type="hidden" name="MailRedirect" value="Aawsom.net">
|
||||
<%' <input type="hidden" name="MailRedirectSecure" value="Secure2.Aawsom.net/VirtualXXX/YourUsername/secure/thanks.htm">%>
|
||||
<input type="hidden" name="Time" value="<%=Now()%>">
|
||||
<input type="hidden" name="Browser" value="<%=Request.ServerVariables("HTTP_User_Agent")%>">
|
||||
<!-- End Insert Here -->
|
||||
<hr width="60%" color="#FF0000">
|
||||
<p>Please provide the following ordering information:</p>
|
||||
<table>
|
||||
<tr>
|
||||
<td><strong>QTY</strong></td>
|
||||
<td><strong>DESCRIPTION</strong></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><input TYPE="TEXT" NAME="Order_Qty0" SIZE="6" MAXLENGTH="6"></td>
|
||||
<td><input TYPE="TEXT" NAME="Order_Dsc0" SIZE="45"></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><input TYPE="TEXT" NAME="Order_Qty1" SIZE="6" MAXLENGTH="6"></td>
|
||||
<td><input TYPE="TEXT" NAME="Order_Dsc1" SIZE="45"></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><input TYPE="TEXT" NAME="Order_Qty2" SIZE="6" MAXLENGTH="6"></td>
|
||||
<td><input TYPE="TEXT" NAME="Order_Dsc2" SIZE="45"></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><input TYPE="TEXT" NAME="Order_Qty3" SIZE="6" MAXLENGTH="6"></td>
|
||||
<td><input TYPE="TEXT" NAME="Order_Dsc3" SIZE="45"></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><input TYPE="TEXT" NAME="Order_Qty4" SIZE="6" MAXLENGTH="6"></td>
|
||||
<td><input TYPE="TEXT" NAME="Order_Dsc4" SIZE="45"></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><strong>BILLING</strong></td>
|
||||
<td></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><em>Credit card</em></td>
|
||||
<td><select NAME="Card__Type" size="1">
|
||||
<option SELECTED>VISA </option>
|
||||
<option>MasterCard </option>
|
||||
<option>American Express </option>
|
||||
<option>Diner's Club </option>
|
||||
<option>Discover </option>
|
||||
</select> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>Cardholder name</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Card_Name" SIZE="35"> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>Card number</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Card_Nmbr" SIZE="35"> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>Expiration date</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Card__Exp" SIZE="5" MAXLENGTH="5"> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><strong>SHIPPING</strong></td>
|
||||
<td></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>Street address</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Addrs_Str1" SIZE="35"> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>Address (cont.)</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Addrs_Str2" SIZE="35"> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>City</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Addrs_City" SIZE="35"> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>State/Province</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Addrs_Stat" SIZE="35"> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>Zip/Postal code</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Addrs__Zip" SIZE="12" MAXLENGTH="12"> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>Country</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Addrs_Ctry" SIZE="25"> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>Email Address</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Email" SIZE="25"> </td>
|
||||
</tr>
|
||||
</table>
|
||||
<div align="center"><center><p><input TYPE="submit" VALUE="Submit Form"> </p>
|
||||
</center></div><hr width="60%" color="#FF0000">
|
||||
<div align="center"><center><p><font><small>Designed by: <a href="http://www.Aawsom.net/sitedesign">Aawsom Technologies</a></small></font><br>
|
||||
<font color="#000000" face="Arial" size="1">Revised: <!--webbot bot="Timestamp" S-Type="EDITED" S-Format="%m/%d/%y %I:%M %p" startspan -->09/10/98 01:52 PM<!--webbot bot="Timestamp" endspan i-checksum="29431" --></font></p>
|
||||
</center></div><div align="center"><center><p></font> </p>
|
||||
</center></div>
|
||||
</form>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</div>
|
||||
</body>
|
||||
</html>
|
||||
11
site/slowtwitch.com/www/secure/UseThisKevin.asp
Normal file
11
site/slowtwitch.com/www/secure/UseThisKevin.asp
Normal file
@ -0,0 +1,11 @@
|
||||
<!-- Start Insert Here -->
|
||||
<form action="https://Secure2.Aawsom.net/forms/FormProcessor.asp" method="POST" name="Comment_Form">
|
||||
<input type="hidden" name="MailTo" value="Support@Aawsom.net">
|
||||
<input type="hidden" name="MailFromDefault" value="NoEmail@Aawsom.net">
|
||||
<input type="hidden" name="MailFromField" value="Email">
|
||||
<input type="hidden" name="MailSubject" value="Test Form">
|
||||
<input type="hidden" name="MailRedirect" value="Aawsom.net">
|
||||
<%' <input type="hidden" name="MailRedirectSecure" value="Secure2.Aawsom.net/VirtualXXX/YourUsername/secure/thanks.htm">%>
|
||||
<input type="hidden" name="Time" value="<%=Now()%>">
|
||||
<input type="hidden" name="Browser" value="<%=Request.ServerVariables("HTTP_User_Agent")%>">
|
||||
<!-- End Insert Here -->
|
||||
8
site/slowtwitch.com/www/secure/WhereAmI.asp
Normal file
8
site/slowtwitch.com/www/secure/WhereAmI.asp
Normal file
@ -0,0 +1,8 @@
|
||||
<%@ LANGUAGE="vbscript" %>
|
||||
<% Option Explicit %>
|
||||
<html>
|
||||
<Title>Current Path</Title>
|
||||
<body>
|
||||
<% Response.write "The Current Path:" & Request.ServerVariables("Path_Translated")%>
|
||||
</body>
|
||||
</html>
|
||||
94
site/slowtwitch.com/www/secure/database/TableList.asp
Normal file
94
site/slowtwitch.com/www/secure/database/TableList.asp
Normal file
@ -0,0 +1,94 @@
|
||||
<%@ LANGUAGE="vbscript" %>
|
||||
<%Option Explicit%>
|
||||
<%
|
||||
'-------------------------------------------------------------------------------
|
||||
'Aawsom Technologies
|
||||
'Created By: Steve Hunsader
|
||||
'Created On: 2/8/02
|
||||
'-------------------------------------------------------------------------------
|
||||
'Defining Objects
|
||||
Dim sTableName
|
||||
Dim Products, rsProducts 'These should be renamed for each project
|
||||
Dim sQuery, cmdTemp, nFields, ThisRecord, i
|
||||
|
||||
'insert table name
|
||||
sTableName = "Products"
|
||||
|
||||
'If a Query String item "T" exists, then display that table instead.
|
||||
If trim(Request.QueryString("T")) <> "" then
|
||||
sTableName = trim(Request.QueryString("T"))
|
||||
End If
|
||||
|
||||
sQuery = "SELECT * FROM " & sTableName
|
||||
|
||||
'Connection Object to database
|
||||
Set Products=Server.CreateObject("ADODB.Connection")
|
||||
Products.ConnectionTimeout = Session("ConnectionTimeout")
|
||||
Products.CommandTimeout = Session("CommandTimeout")
|
||||
Products.Open Session("ConnectString"), Session("RuntimeUser"), Session("RuntimePass")
|
||||
Set cmdTemp = Server.CreateObject("ADODB.Command")
|
||||
Set rsProducts = Server.CreateObject("ADODB.Recordset")
|
||||
cmdTemp.CommandText = sQuery
|
||||
cmdTemp.CommandType = 1
|
||||
Set cmdTemp.ActiveConnection = Products
|
||||
rsProducts.Open cmdTemp, , 0, 1
|
||||
'Response.Write sQuery
|
||||
%>
|
||||
<html>
|
||||
|
||||
<head>
|
||||
<title>Table <%=sTableName%></title>
|
||||
|
||||
</head>
|
||||
|
||||
<body>
|
||||
<div align="left">
|
||||
|
||||
<table border="0" cellpadding="6" align="center" width="90%">
|
||||
<tr>
|
||||
<td>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<div align="center">
|
||||
<table border="0" cellspacing="4" cellpadding="5" width="90%">
|
||||
<tr>
|
||||
<td>
|
||||
<div align="center"><font size="3"><b>Table <%=sTableName%></b></font></div>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
<br>
|
||||
<table border=0 align="center" cellpadding="0" cellspacing="5" width="50%">
|
||||
<tr>
|
||||
<%'Header On The Table of Field Names%>
|
||||
<%nFields=rsProducts.fields.count -1%>
|
||||
<%For i=0 to nFields%>
|
||||
<td><b><%=rsProducts(i).name%></b></td>
|
||||
<%Next%>
|
||||
</tr>
|
||||
<%' Loop through the records%>
|
||||
<%Do While NOT rsProducts.EOF%>
|
||||
<tr>
|
||||
<%For i = 0 to nFields
|
||||
ThisRecord = rsProducts(i)
|
||||
If IsNull(ThisRecord) Then
|
||||
ThisRecord = " "
|
||||
End If%>
|
||||
<td valign=top>
|
||||
<div align="left"><%=ThisRecord%></div>
|
||||
</td>
|
||||
<%Next%>
|
||||
</tr>
|
||||
<%rsProducts.movenext%>
|
||||
<%Loop%>
|
||||
</table>
|
||||
</div>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</div>
|
||||
|
||||
</body>
|
||||
</html>
|
||||
14
site/slowtwitch.com/www/secure/database/global.asa
Normal file
14
site/slowtwitch.com/www/secure/database/global.asa
Normal file
@ -0,0 +1,14 @@
|
||||
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
|
||||
Sub Session_OnStart
|
||||
|
||||
'NOTE: The database name must be assigned at the end of the line below.
|
||||
Session("ConnectString") = "DRIVER={SQL Server};SERVER=SQL2;UID=Webuser;APP=Microsoft(R) Windows NT(TM) Operating System;WSID=P150;DATABASE=****YourDatabase****"
|
||||
Session("ConnectionTimeout") = 15
|
||||
Session("CommandTimeout") = 30
|
||||
Session("RuntimeUser") = "Webuser"
|
||||
Session("RuntimePass") = "Webuser"
|
||||
|
||||
End Sub
|
||||
</SCRIPT>
|
||||
|
||||
|
||||
58
site/slowtwitch.com/www/secure/default.htm
Normal file
58
site/slowtwitch.com/www/secure/default.htm
Normal file
@ -0,0 +1,58 @@
|
||||
<html>
|
||||
|
||||
<head>
|
||||
<title>Your Secure Server Page</title>
|
||||
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
|
||||
<base face="Arial">
|
||||
</head>
|
||||
|
||||
<body bgcolor="#FFFFFF" link="#0000FF" vlink="#800000">
|
||||
<div align="left">
|
||||
|
||||
<table border="0" cellpadding="0" cellspacing="0">
|
||||
<tr>
|
||||
<td width="125"><font color="#FF0000"><big>Aawsom<br>
|
||||
Technologies</big></font></td>
|
||||
<td width="5"></td>
|
||||
<td><font><a href="mailto:info@Unilab.com" id="F9" onmouseover="window.status='Email Us For Additional Information'; return true;" onmouseout="window.status=''; return true;"><p align="center"></a></font><font color="#FF0000" face="Arial"><big><big>Your Secure Server Site</big></big></font></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td width="125"></td>
|
||||
<td width="5" bgcolor="#FFFFFF"></td>
|
||||
<td bgcolor="#FFFFFF"><p align="left"><font face="Arial"><br>
|
||||
<small>This page is located in the /secure directory of your website. You can access
|
||||
it through normal FTP or the Frontpage "Publish" features, as you would with any
|
||||
other content in your website. To access this page SECURELY, you must reference this page
|
||||
through the Secure Aawsom website. Anything you put in your /secure directory can be seen
|
||||
at:</small></font></p>
|
||||
<p align="center"><small><font face="Arial"><strong>https://Secure.Aawsom.net/<em>VirtualX</em>/<em>Username</em>/secure/<em>Filename</em></strong></font></small></p>
|
||||
<p align="left"><font face="Arial"><strong>Where:</strong></font></p>
|
||||
<p align="left"><small><font face="Arial"><em><strong>VirtualX =</strong></em> The Virtual
|
||||
Directory you reside in. This information is included on your signup information sheet.</font></small></p>
|
||||
<p align="left"><small><font face="Arial"><em><strong>Username =</strong></em> Your
|
||||
account Username, also included on your signup information sheet.</font></small></p>
|
||||
<p align="left"><small><font face="Arial"><strong><em>Filename =</em></strong> The
|
||||
filename of the form you want to process.</font></small></p>
|
||||
<p align="left"><font face="Arial"><strong>Example</strong></font></p>
|
||||
<p align="left"><small><font face="Arial">A company in <strong><em>Virtual1</em></strong>
|
||||
with username <strong><em>MyCompany</em></strong> would like to use a form called <em><strong>secureorder.htm</strong></em>.
|
||||
Secureorder.htm is copied into the /secure directory using traditional FTP or Frontpage
|
||||
Publish methods. The link to this page should be:</font></small></p>
|
||||
<p align="center"><small><strong><font face="Arial">https://Secure.Aawsom.net/<em>Virtual1</em>/<em>Mycompany</em>/<em>secureorder.htm</em></font></strong></small></p>
|
||||
<p align="left"><small><font face="Arial">Please note that there is an "<strong>S</strong>"
|
||||
in the URL: https:// and not the standard http://. This is how the webserver distinquishes
|
||||
the difference between a secure encrypted webpage and a standard web page.</font></small></p>
|
||||
<p align="left"><small><font face="Arial"><strong>NOTE: </strong>Some additional
|
||||
configuration is required. Please see </font></small>the <a href="http://Aawsom.net/support/">Support</a> section of our website for additional
|
||||
details on processing forms.</p>
|
||||
<p align="left"><small><font face="Arial">If you have any difficulties, please <a href="mailto:Secure@Aawsom.net">contact us.</a></font></small></p>
|
||||
<hr width="60%" color="#FF0000">
|
||||
<p align="center"><font><small>Designed by: <a href="http://www.Aawsom.net/sitedesign">Aawsom
|
||||
Technologies</a></small></font><br>
|
||||
<font color="#000000" face="Arial" size="1">Revised: <!--webbot bot="Timestamp" S-Type="EDITED" S-Format="%m/%d/%y %I:%M %p" startspan -->09/12/98 01:51 PM<!--webbot bot="Timestamp" endspan i-checksum="29431" --></font></p>
|
||||
<p align="center"> </td>
|
||||
</tr>
|
||||
</table>
|
||||
</div>
|
||||
</body>
|
||||
</html>
|
||||
133
site/slowtwitch.com/www/secure/formtag.asp
Normal file
133
site/slowtwitch.com/www/secure/formtag.asp
Normal file
@ -0,0 +1,133 @@
|
||||
<html>
|
||||
|
||||
<head>
|
||||
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
|
||||
<base face="Arial">
|
||||
<title>Secure Order Form</title>
|
||||
</head>
|
||||
|
||||
<body bgcolor="#FFFFFF" link="#0000FF" vlink="#800000">
|
||||
<div align="left">
|
||||
|
||||
<table border="0" cellpadding="0" cellspacing="0">
|
||||
<tr>
|
||||
<td width="125"><font color="#FF0000"><big>Aawsom<br>
|
||||
Technologies</big></font></td>
|
||||
<td width="5"></td>
|
||||
<td><h1><font color="#FF0000">Secure Order Form</font></h1>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td width="125"></td>
|
||||
<td width="5" bgcolor="#FFFFFF"></td>
|
||||
<td bgcolor="#FFFFFF" align="left"><font face="Arial"><table border="5">
|
||||
<tr>
|
||||
<td>
|
||||
|
||||
<!-- Start Insert Here -->
|
||||
<form METHOD="POST" action="../_vti_bin/shtml.dll/secure/formtag.asp" webbot-action="--WEBBOT-SELF--">
|
||||
<!--webbot bot="SaveResults" U-File="data/secureorder.txt" S-Format="TEXT/TSV" S-Label-Fields="TRUE" B-Reverse-Chronology="FALSE" S-Email-Format="TEXT/PRE" S-Email-Address="Steve@Aawsom.net" B-Email-Label-Fields="TRUE" B-Email-ReplyTo-From-Field="True" S-Email-ReplyTo="Email" B-Email-Subject-From-Field="FALSE" S-Email-Subject="Your Secure Order" S-Builtin-Fields="Date Time HTTP_USER_AGENT" startspan --><strong>[FrontPage Save Results Component]</strong><!--webbot bot="SaveResults" endspan i-checksum="6561" -->
|
||||
<!-- End Insert Here -->
|
||||
|
||||
<hr width="60%" color="#FF0000">
|
||||
<p>Please provide the following ordering information:</p>
|
||||
<table>
|
||||
<tr>
|
||||
<td><strong>QTY</strong></td>
|
||||
<td><strong>DESCRIPTION</strong></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><input TYPE="TEXT" NAME="Order_Qty0" SIZE="6" MAXLENGTH="6"></td>
|
||||
<td><input TYPE="TEXT" NAME="Order_Dsc0" SIZE="45"></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><input TYPE="TEXT" NAME="Order_Qty1" SIZE="6" MAXLENGTH="6"></td>
|
||||
<td><input TYPE="TEXT" NAME="Order_Dsc1" SIZE="45"></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><input TYPE="TEXT" NAME="Order_Qty2" SIZE="6" MAXLENGTH="6"></td>
|
||||
<td><input TYPE="TEXT" NAME="Order_Dsc2" SIZE="45"></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><input TYPE="TEXT" NAME="Order_Qty3" SIZE="6" MAXLENGTH="6"></td>
|
||||
<td><input TYPE="TEXT" NAME="Order_Dsc3" SIZE="45"></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><input TYPE="TEXT" NAME="Order_Qty4" SIZE="6" MAXLENGTH="6"></td>
|
||||
<td><input TYPE="TEXT" NAME="Order_Dsc4" SIZE="45"></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><strong>BILLING</strong></td>
|
||||
<td></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><em>Credit card</em></td>
|
||||
<td><select NAME="Card__Type" size="1">
|
||||
<option SELECTED>VISA </option>
|
||||
<option>MasterCard </option>
|
||||
<option>American Express </option>
|
||||
<option>Diner's Club </option>
|
||||
<option>Discover </option>
|
||||
</select> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>Cardholder name</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Card_Name" SIZE="35"> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>Card number</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Card_Nmbr" SIZE="35"> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>Expiration date</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Card__Exp" SIZE="5" MAXLENGTH="5"> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><strong>SHIPPING</strong></td>
|
||||
<td></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>Street address</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Addrs_Str1" SIZE="35"> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>Address (cont.)</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Addrs_Str2" SIZE="35"> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>City</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Addrs_City" SIZE="35"> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>State/Province</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Addrs_Stat" SIZE="35"> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>Zip/Postal code</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Addrs__Zip" SIZE="12" MAXLENGTH="12"> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>Country</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Addrs_Ctry" SIZE="25"> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>Email Address</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Email" SIZE="25"> </td>
|
||||
</tr>
|
||||
</table>
|
||||
<div align="center"><center><p><input TYPE="submit" VALUE="Submit Form"> </p>
|
||||
</center></div><hr width="60%" color="#FF0000">
|
||||
<div align="center"><center><p><font><small>Designed by: <a href="http://www.Aawsom.net/sitedesign">Aawsom Technologies</a></small></font><br>
|
||||
<font color="#000000" face="Arial" size="1">Revised: <!--webbot bot="Timestamp" S-Type="EDITED" S-Format="%m/%d/%y %I:%M %p" startspan -->01/09/99 01:36 AM<!--webbot bot="Timestamp" endspan i-checksum="27855" --></font></p>
|
||||
</center></div><div align="center"><center><p></font> </p>
|
||||
</center></div>
|
||||
</form>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</div>
|
||||
</body>
|
||||
</html>
|
||||
195
site/slowtwitch.com/www/secure/lyrisProcessor.asp
Normal file
195
site/slowtwitch.com/www/secure/lyrisProcessor.asp
Normal file
@ -0,0 +1,195 @@
|
||||
<%@ LANGUAGE="VBSCRIPT" %>
|
||||
<% Option Explicit %>
|
||||
|
||||
<script RUNAT="Server" LANGUAGE="VBScript">
|
||||
|
||||
Function MailIt(sFrom,sTo,sSub,sBody)
|
||||
|
||||
On Error Resume Next 'prevent the code from halting on an error
|
||||
dim oMail
|
||||
|
||||
MailIt=false
|
||||
Set oMail = Server.CreateObject("CDONTS.Newmail")
|
||||
oMail.From = sFrom
|
||||
oMail.To = sTo
|
||||
oMail.Subject = sSub
|
||||
oMail.Body = sBody
|
||||
oMail.Send
|
||||
|
||||
If Err.Number <> 0 then
|
||||
response.write "Error1 Found:" & Err.Number & " " & Err.Description
|
||||
end if
|
||||
|
||||
Set oMail = nothing
|
||||
|
||||
If Err.Number = 0 then
|
||||
MailIt = true
|
||||
Else
|
||||
response.write "Error Found:" & Err.Number & " " & Err.Description
|
||||
End If
|
||||
|
||||
End Function
|
||||
|
||||
Function Cr2br(sIn)
|
||||
Dim sLen
|
||||
Dim iCount
|
||||
Dim iPos
|
||||
Dim sCr
|
||||
Dim sLf
|
||||
|
||||
sCr = chr(13)
|
||||
sLf = chr(10)
|
||||
|
||||
sLen = len(sIn)
|
||||
Cr2br = ""
|
||||
for iPos = 1 to sLen
|
||||
if (mid(sIn,iPos,1) = sCr) then
|
||||
Cr2br=Cr2br & "<br>"
|
||||
iPos=iPos+1
|
||||
else
|
||||
Cr2br=Cr2br & mid(sIn,iPos,1)
|
||||
end If
|
||||
next
|
||||
|
||||
End Function
|
||||
|
||||
</script>
|
||||
|
||||
<%
|
||||
Dim i, j, br, lf, found
|
||||
Dim iByteCount, sData, sTemp, bResponse, sEnd
|
||||
Dim sTo, sFrom, sSubject, sBody, bDataOK, sWebBody, sMessage
|
||||
Dim sFromField, bFromField, sRedirect, bRedirect, bRedirectIsSecure
|
||||
Dim aData, aPermit(), iCount, sLeadIn
|
||||
|
||||
br = "<BR>"
|
||||
lf = Chr(13) & Chr(10)
|
||||
sLeadIn = "login bikila" & lf & "add slowtwitch-news quiet <<" & lf
|
||||
sEnd = ">>"
|
||||
|
||||
'Grab data from header in byte forma
|
||||
iByteCount = Request.TotalBytes
|
||||
sTemp = Request.BinaryRead(iByteCount)
|
||||
|
||||
'Convert byte data into string data
|
||||
For i = 1 to iByteCount
|
||||
sData = sData & Chr(AscB(MidB(sTemp,i,1)))
|
||||
Next
|
||||
|
||||
'Replace Query String substitution characters
|
||||
sData = Replace(sData, "+", " ")
|
||||
sData = Replace(sData, "=", ": ")
|
||||
|
||||
'Put each value into individual array element
|
||||
aData = Split(sData, "&", -1, 1)
|
||||
|
||||
'Get count of number of entries
|
||||
On Error Resume Next
|
||||
i = 0
|
||||
iCount = 0
|
||||
Do
|
||||
If NOT IsEmpty(aData(i)) then
|
||||
if Err.Number = 0 then
|
||||
iCount = iCount+1
|
||||
Else
|
||||
Exit Do
|
||||
End If
|
||||
end If
|
||||
i=i+1
|
||||
Loop
|
||||
|
||||
'Replace UUEncoding
|
||||
For i = 0 to iCount-1
|
||||
aData(i) = Replace(aData(i), "%21", Chr(33)) '!
|
||||
aData(i) = Replace(aData(i), "%22", Chr(34)) '"
|
||||
aData(i) = Replace(aData(i), "%23", Chr(35)) '#
|
||||
aData(i) = Replace(aData(i), "%24", Chr(36)) '$
|
||||
aData(i) = Replace(aData(i), "%25", Chr(37)) '%
|
||||
aData(i) = Replace(aData(i), "%26", Chr(38)) '&
|
||||
aData(i) = Replace(aData(i), "%27", Chr(39)) ''
|
||||
aData(i) = Replace(aData(i), "%28", Chr(40)) '(
|
||||
aData(i) = Replace(aData(i), "%29", Chr(41)) ')
|
||||
aData(i) = Replace(aData(i), "%2A", Chr(42)) '*
|
||||
aData(i) = Replace(aData(i), "%2B", Chr(43)) '+
|
||||
aData(i) = Replace(aData(i), "%2C", Chr(44)) ',
|
||||
aData(i) = Replace(aData(i), "%2D", Chr(45)) '-
|
||||
aData(i) = Replace(aData(i), "%2E", Chr(46)) '.
|
||||
aData(i) = Replace(aData(i), "%2F", Chr(47)) '/
|
||||
aData(i) = Replace(aData(i), "%3A", Chr(58)) ':
|
||||
aData(i) = Replace(aData(i), "%3B", Chr(59)) ';
|
||||
aData(i) = Replace(aData(i), "%3C", Chr(60)) '<
|
||||
aData(i) = Replace(aData(i), "%3D", Chr(61)) '=
|
||||
aData(i) = Replace(aData(i), "%3E", Chr(62)) '>
|
||||
aData(i) = Replace(aData(i), "%3F", Chr(63)) '?
|
||||
aData(i) = Replace(aData(i), "%40", Chr(64)) '@
|
||||
aData(i) = Replace(aData(i), "%5B", Chr(91)) '[
|
||||
aData(i) = Replace(aData(i), "%5C", Chr(92)) '\
|
||||
aData(i) = Replace(aData(i), "%5D", Chr(93)) ']
|
||||
aData(i) = Replace(aData(i), "%5E", Chr(94)) '^
|
||||
aData(i) = Replace(aData(i), "%5F", Chr(95)) '_
|
||||
aData(i) = Replace(aData(i), "%60", Chr(96)) ''
|
||||
aData(i) = Replace(aData(i), "%7B", Chr(123)) '{
|
||||
aData(i) = Replace(aData(i), "%7C", Chr(123)) '|
|
||||
aData(i) = Replace(aData(i), "%7D", Chr(123)) '}
|
||||
aData(i) = Replace(aData(i), "%7E", Chr(123)) '~
|
||||
aData(i) = Replace(aData(i), "%0D", Chr(13)) 'Carriage Return
|
||||
aData(i) = Replace(aData(i), "%0A", Chr(10)) 'Line Feed
|
||||
Next
|
||||
|
||||
Redim aPermit(iCount)
|
||||
|
||||
For i = 0 to iCount-1
|
||||
aPermit(i) = True
|
||||
If Left(aData(i),Len("MailTo")) = "MailTo" Then
|
||||
sTo = Mid(aData(i),Len("MailTo")+3)
|
||||
aPermit(i) = False
|
||||
End If
|
||||
If Left(aData(i),Len("MailFromField")) = "MailFromField" Then
|
||||
sFrom = Mid(aData(i),Len("MailFromField")+3)
|
||||
aPermit(i) = False
|
||||
End If
|
||||
If Left(aData(i),Len("MailSubject")) = "MailSubject" Then
|
||||
sSubject = Mid(aData(i),Len("MailSubject")+3)
|
||||
aPermit(i) = False
|
||||
End If
|
||||
If Left(aData(i),Len("MailRedirectSecure")) = "MailRedirectSecure" Then
|
||||
sRedirect = "https://" & Mid(aData(i),Len("MailRedirectSecure")+3)
|
||||
bRedirect = True
|
||||
aPermit(i) = False
|
||||
End If
|
||||
Next
|
||||
|
||||
'Create Body of Message
|
||||
sBody = sLeadIn
|
||||
For i = 0 to iCount-1
|
||||
If aPermit(i) = True Then
|
||||
found = InStr(aData(i), "email")
|
||||
If found Then
|
||||
found = found + 7
|
||||
sBody = sBody & Mid(aData(i), found) & lf
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
sBody = sBody & sEnd
|
||||
|
||||
'Check that there is enough data to send mail
|
||||
bDataOK = True
|
||||
|
||||
If len(sBody) = 0 Then
|
||||
bDataOK = False
|
||||
sMessage = "No BODY Content.<BR>"
|
||||
End If
|
||||
|
||||
If bDataOK = True Then
|
||||
|
||||
'Mail It
|
||||
sResult = mailIt(sFrom,sTo,sSubject,sBody)
|
||||
|
||||
'If redirecting to another page, redirect before anything is written to page
|
||||
If bRedirect = True then
|
||||
Response.Redirect sRedirect
|
||||
End If
|
||||
|
||||
End If
|
||||
%>
|
||||
147
site/slowtwitch.com/www/secure/secureorder.htm
Normal file
147
site/slowtwitch.com/www/secure/secureorder.htm
Normal file
@ -0,0 +1,147 @@
|
||||
<html>
|
||||
|
||||
<head>
|
||||
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
|
||||
<base face="Arial">
|
||||
<title>Secure Order Form</title>
|
||||
</head>
|
||||
|
||||
<body bgcolor="#FFFFFF" link="#0000FF" vlink="#800000">
|
||||
<div align="left">
|
||||
|
||||
<table border="0" cellpadding="0" cellspacing="0">
|
||||
<tr>
|
||||
<td width="125"><font color="#FF0000"><big>Aawsom<br>
|
||||
Technologies</big></font></td>
|
||||
<td width="5"></td>
|
||||
<td><h1><font color="#FF0000">Secure Order Form</font></h1>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td width="125"></td>
|
||||
<td width="5" bgcolor="#FFFFFF"></td>
|
||||
<td bgcolor="#FFFFFF" align="left"><font face="Arial"><table border="5">
|
||||
<tr>
|
||||
<td>
|
||||
|
||||
<!-- Start Insert Here -->
|
||||
<form METHOD="POST" action="../_vti_bin/shtml.dll/secure/secureorder.htm" webbot-action="--WEBBOT-SELF--">
|
||||
<!--webbot bot="SaveResults"
|
||||
U-File="data/secureorder.txt"
|
||||
S-Format="TEXT/TSV"
|
||||
S-Label-Fields="TRUE"
|
||||
B-Reverse-Chronology="FALSE"
|
||||
S-Email-Format="TEXT/PRE"
|
||||
S-Email-Address="Steve@Aawsom.net"
|
||||
B-Email-Label-Fields="TRUE"
|
||||
B-Email-ReplyTo-From-Field="True"
|
||||
S-Email-ReplyTo="Email"
|
||||
B-Email-Subject-From-Field="FALSE"
|
||||
S-Email-Subject="Your Secure Order"
|
||||
S-Builtin-Fields="Date Time HTTP_USER_AGENT" startspan -->
|
||||
<input TYPE="hidden" NAME="VTI-GROUP" VALUE="0">
|
||||
<!--webbot bot="SaveResults" endspan i-checksum="43374" -->
|
||||
<!-- End Insert Here -->
|
||||
|
||||
<hr width="60%" color="#FF0000">
|
||||
<p>Please provide the following ordering information:</p>
|
||||
<table>
|
||||
<tr>
|
||||
<td><strong>QTY</strong></td>
|
||||
<td><strong>DESCRIPTION</strong></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><input TYPE="TEXT" NAME="Order_Qty0" SIZE="6" MAXLENGTH="6"></td>
|
||||
<td><input TYPE="TEXT" NAME="Order_Dsc0" SIZE="45"></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><input TYPE="TEXT" NAME="Order_Qty1" SIZE="6" MAXLENGTH="6"></td>
|
||||
<td><input TYPE="TEXT" NAME="Order_Dsc1" SIZE="45"></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><input TYPE="TEXT" NAME="Order_Qty2" SIZE="6" MAXLENGTH="6"></td>
|
||||
<td><input TYPE="TEXT" NAME="Order_Dsc2" SIZE="45"></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><input TYPE="TEXT" NAME="Order_Qty3" SIZE="6" MAXLENGTH="6"></td>
|
||||
<td><input TYPE="TEXT" NAME="Order_Dsc3" SIZE="45"></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><input TYPE="TEXT" NAME="Order_Qty4" SIZE="6" MAXLENGTH="6"></td>
|
||||
<td><input TYPE="TEXT" NAME="Order_Dsc4" SIZE="45"></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><strong>BILLING</strong></td>
|
||||
<td></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><em>Credit card</em></td>
|
||||
<td><select NAME="Card__Type" size="1">
|
||||
<option SELECTED>VISA </option>
|
||||
<option>MasterCard </option>
|
||||
<option>American Express </option>
|
||||
<option>Diner's Club </option>
|
||||
<option>Discover </option>
|
||||
</select> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>Cardholder name</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Card_Name" SIZE="35"> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>Card number</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Card_Nmbr" SIZE="35"> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>Expiration date</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Card__Exp" SIZE="5" MAXLENGTH="5"> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><strong>SHIPPING</strong></td>
|
||||
<td></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>Street address</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Addrs_Str1" SIZE="35"> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>Address (cont.)</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Addrs_Str2" SIZE="35"> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>City</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Addrs_City" SIZE="35"> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>State/Province</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Addrs_Stat" SIZE="35"> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>Zip/Postal code</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Addrs__Zip" SIZE="12" MAXLENGTH="12"> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>Country</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Addrs_Ctry" SIZE="25"> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td ALIGN="right"><em>Email Address</em></td>
|
||||
<td><input TYPE="TEXT" NAME="Email" SIZE="25"> </td>
|
||||
</tr>
|
||||
</table>
|
||||
<div align="center"><center><p><input TYPE="submit" VALUE="Submit Form"> </p>
|
||||
</center></div><hr width="60%" color="#FF0000">
|
||||
<div align="center"><center><p><font><small>Designed by: <a href="http://www.Aawsom.net/sitedesign">Aawsom Technologies</a></small></font><br>
|
||||
<font color="#000000" face="Arial" size="1">Revised: <!--webbot bot="Timestamp" S-Type="EDITED" S-Format="%m/%d/%y %I:%M %p" startspan -->09/10/98 01:52 PM<!--webbot bot="Timestamp" endspan i-checksum="29431" --></font></p>
|
||||
</center></div><div align="center"><center><p></font> </p>
|
||||
</center></div>
|
||||
</form>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</div>
|
||||
</body>
|
||||
</html>
|
||||
BIN
site/slowtwitch.com/www/secure/thx.gif
Normal file
BIN
site/slowtwitch.com/www/secure/thx.gif
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 7.2 KiB |
Reference in New Issue
Block a user