|
|
<%
firstname = Request.Form("firstname")
lastname = Request.Form("lastname")
screenname = Request.Form("screenname")
street = Request.Form("street")
city = Request.Form("city")
state = Request.Form("state")
zipcode = Request.Form("zipcode")
country = Request.Form("country")
other = Request.Form("other")
email = Request.Form("Email")
Dim Prob
Prob = 0
If IsNull(firstname) OR firstname = "" Then
firstname = " "
Prob = 1
End If
If IsNull(lastname) OR lastname = "" Then
lastname = " "
Prob = 2
End If
If IsNull(street) OR street = "" Then
street = " "
Prob = 3
End If
If IsNull(city) OR city = "" Then
city = " "
Prob = 4
End If
If IsNull(state) OR state = "" Then
state = " "
Prob = 5
End If
If IsNull(zipcode) OR zipcode = "" Then
zipcode = " "
Prob = 6
End If
If IsNull(country) OR country = "" Then
country = " "
Prob = 7
End If
If IsNull(email) OR email = "" Then
email = " "
Prob = 8
End If
If IsNull(other) OR other = "" Then
other = " "
End If
If IsNull(screenname) OR screenname = "" Then
screenname = " "
End If
If Prob = 0 Then
Set MerchTable = CreateObject("ADODB.Recordset")
MerchTable.Open "RequestMerch", "DSN=frumerch;", 1, 3, 2
MerchTable.AddNew
MerchTable.Fields("FirstName") = firstname
MerchTable.Fields("LastName") = lastname
MerchTable.Fields("ScreenName") = screenname
MerchTable.Fields("Street") = street
MerchTable.Fields("City") = city
MerchTable.Fields("State") = state
MerchTable.Fields("Zipcode") = zipcode
MerchTable.Fields("Country") = country
MerchTable.Fields("Other") = other
MerchTable.Fields("Email") = email
MerchTable.Fields("Date") = Now()
MerchTable.Update
MerchTable.Close
Set MerchTable = CreateObject("ADODB.Recordset")
MerchTable.Open "select count(*) as CountOrders from requestMerch WHERE sent=null", "DSN=frumerch;"
If Not MerchTable.EOF Then
NumberOfRequests = MerchTable.Fields("CountOrders")
Else
NumberOfRequests = 0
End If
MerchTable.Close
Set MerchTable = CreateObject("ADODB.Recordset")
MerchTable.Open "select limit from limit", "DSN=frumerch;"
OrderLimit = MerchTable.Fields("Limit")
If NumberOfRequests > OrderLimit Then
%>
| Thank you! Since the button request limit has been reached, you have been put on the waiting list.
|
<%
Else
%>
Thank you! It will be sent to you as soon as possible!
<%
End If
Else
%>
You didn't complete the form. Go back and enter in all the information.
<%
End If
%>
|