Register now, and get our Sale
Brochure hot off the press!
| Company Name: | |
| Contact/Attention: | |
| Company Address: | |
| Company City: | |
| Company State: | |
| Postal Code: | |
| Country: | |
| Company Phone: | |
| Company Fax: | |
| E-mail Address: |
|
Would you like to receive email auction updates from us? YES NO |
|
Please check the appropriate boxes below to let us know the type of auctions you are interested in: GA - General & Corporate Aviation Auctions CM - Commercial Aviation & Regional / Major Airline Auctions DL - Aircraft Dealers Auctions CG - Cargo Airlines Auctions AA - Antique Aircraft & Warbirds Auctions AG - Agricultural Aviation Auctions HE - Helicopter Auctions TD - Tools and Dye (Machine Shops)
|
|
Now that you have entered your information, please click on
the 'Join Now' button below to finish the registration process.
This will send your registration information to our computer database. Thank
you for registering
with us.
|
<%else ' there is form data to process Dim objConn, objRS Set objConn = Server.CreateObject("ADODB.Connection") Set objRS = Server.CreateObject("ADODB.RecordSet") 'objConn.Open "Driver={SQL Server};" & _ ' "Server=AVINFO2;" & _ ' "Database=dbListServer;" & _ ' "UID=sa1;" & _ ' "PWD=sa1" objConn.Open "DSN=ListServer;UID=sa;PWD=narf123" objRS.Open "Clients", objConn, adOpenKeyset, adLockOptimistic objRS.AddNew objRS("ContactFirstName").value = request.form("firstname") objRS("ContactLastName").value = request.form("lastname") objRS("Address").value = request.form("address") objRS("City").value = request.form("city") objRS("state").value = request.form("state") objRS("PostCode").value = request.form("postcode") objRS("Country").value = request.form("country") objRS("Phone").value = request.form("phone") objRS("Fax").value = request.form("fax") objRS("EmailAddress").value = request.form("emailaddress") objRS("CompanyName").value = request.form("companyname") objRS("CompanyAddress").value = request.form("companyaddress") objRS("CompanyCity").value = request.form("companycity") objRS("CompanyState").value = request.form("companystate") objRS("CompanyPostCode").value = request.form("companypostcode") objRS("CompanyCountry").value = request.form("companycountry") objRS("CompanyPhone").value = request.form("companyphone") objRS("CompanyFax").value = request.form("companyfax") objRS("CompanyEmailAddress").value = request.form("CompanyEmailAddress") 'objRS("SendInfo").value = request.form("SendInfo") objRS("DateEntered").value = date() objRS("AA").value = CSTR(request.form("C1")) objRS("GA").value = CSTR(request.form("C2")) objRS("CM").value = CSTR(request.form("C3")) objRS("DL").value = CSTR(request.form("C4")) objRS("CG").value = CSTR(request.form("C5")) objRS("HE").value = CSTR(request.form("C6")) objRS("AG").value = CSTR(request.form("C7")) objRS.Update objRS.Close objConn.Close Set objRS = Nothing Set objConn = Nothing EmailText = request.form("firstname") & " " & request.form("lastname") & " " & request.form("address") EmailText = EmailText & " " & request.form("state") & " " & request.form("postcode") & " " & request.form("country") EMailText = EmailText & " " & request.form("phone") & " " & request.form("fax") & " " & request.form("emailaddress") EMailText = EmailText & " " & request.form("companyname") & " " & CSTR(request.form("C1")) EMailText = EmailText & " " & CSTR(request.form("C2")) & CSTR(request.form("C3"))& CSTR(request.form("C4")) EMailText = EmailText & " " & CSTR(request.form("C5"))& CSTR(request.form("C6")) & CSTR(request.form("C7")) '************************************** '** Enter Email Confim Information SendEmailMessage Request.Form("emailaddress"), "rnusser@starmanauctions.com", "Your registration 'application for Starmanauctions.com is complete!","Thank you for your support of Starmanauctions.com" SendEmailMessage "rnusser@starmanauctions.com", "rnusser@starmanauctions.com", "New registration name 'for starmanauctions.com", "New Starman List member - " & EMailText '************************************** response.write("