<%@LANGUAGE="VBSCRIPT"%> <%'On Error Resume Next If request("Submit") <> "" then sFullname = request("sFullname") sAddress = request("sAddress") sCity = request("sCity") sState = request("sState") sZipcode = request("sZipcode") sPhone = request("sPhone") sEmail = request("sEmail") Set insertCmd = Server.CreateObject("ADODB.Command") insertCmd.ActiveConnection = globalConnectionString insertStr = "INSERT INTO Members (m_name, m_address, m_city, m_state, m_zip, m_phone, m_email) VALUES ('" & sFullname & "','" & sAddress & "','" & sCity & "','" & sState & "','" & sZipcode & "','" & sPhone & "','" & sEmail & "');" insertCmd.CommandText = insertStr insertCmd.Execute Set insertCmd = nothing Dim objMail Set objMail = CreateObject("CDONTS.NewMail") if IsObject(objMail) Then objMail.From = "NoReply@NonStopHunting.Net" 'objMail.To = "tonyb@vsginc.net" objMail.To = sEmail objMail.Subject = "NonStopHunting.Net Member Sign-up" objMail.Body = "Thank you for signing up for our Member List." objMail.Send Set objMail = Nothing End if response.redirect("1biggestfan_form.asp") End if %> Non Stop Hunting.NET
 

NonStop Hunting's #1 Biggest Fan!



SIGN UP TO RECEIVE NSH UPDATES!
* Full Name  
Address  
City  
State  
Postal Code  
10 Digit Phone  
* Email Address  



(Once you Sign-up you will be redirected to the #1 Biggest Fan Form page for Printing.)



NSH #1 Fans 2008



Hey guys this is Dwayne and Josh, Team Father and Son, just wanting to tell you two....THANK YOU!!!!!!!!! We had so much fun in Kansas it is indescribeable!!!! I am hoping we can go back to Jim Call's and hunt turkeys again next year. It was such an unbelievable week with all the close calls and near misses, not to mention all the plans that came together! But we will leave that for the show. Just wanting to drop ya'll a Thank You note from us and to let everybody know, SIGN UP, It could be YOU next Time. Best Prize we have ever won.

Thanks again, Dwayne & Josh