<%Response.Buffer=true%> Blue Angels - Registration <% ' declare the connection variable ' and the recordset variable so that it can be used time to time dim con dim rs ' this set the connection string of the project dim constring Dim database 'SET THE VARIABLE HERE WHICH CAN USE IN THE SITE onleft=1 onright=0 Dim strDBPath ' path to our Access database (*.mdb) file ' strDBPath = Server.MapPath("../db/ski.mdb") strDBPath = Server.MapPath("../db/ski.mdb") 'for local strDBPath = Server.MapPath("../db/ski.mdb") ' Create an ADO Connection to connect to the scratch database. ' We're using OLE DB but you could just as easily use ODBC or a DSN. Set con = Server.CreateObject("ADODB.Connection") ' This line is for the Access sample database: con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";" set rs = server.createobject("ADODB.Recordset") 'creating the recordset object' 'this function will populate the recordset' function selectStmt(stmt) 'retriving the state of the connnection' if rs.state = 1 then rs.close end if rs.open stmt,con,1,2 end function 'Select the content for the table' function selectTable(tableName) 'checking the connection status' if rs.state = 1 then rs.close end if stmt = "select * from " & tableName rs.open stmt,1,2 end function 'insert the data into the table' function insert(stmt) con.Execute stmt end function 'delete the data from the table' function delete(stmt) con.Execute stmt end function 'display the content that is inputed' function echo(stmt) response.write stmt end function 'function to retrive the value which is posted' function data(name) 'getting the value' if len(trim(request.querystring(name))) > 0 then value_work = request.querystring(name) else value_work = request.form(name) if len(trim(value_work)) < 1 then value_work = request.cookies(name) end if if len(trim(value_work)) < 1 then value_work = session(name) end if end if data = value_work end function 'function to set the cookie ' function setcookie(name,value) response.Cookies(name) = value end function ' MAKE the radmon pasword' function makePassword(byVal maxLen) Dim strNewPass Dim whatsNext, upper, lower, intCounter Randomize For intCounter = 1 To maxLen whatsNext = Int((1 - 0 + 1) * Rnd + 0) If whatsNext = 0 Then 'character' upper = 90 lower = 65 Else upper = 57 lower = 48 End If strNewPass = strNewPass & Chr(Int((upper - lower + 1) * Rnd + lower)) Next makePassword = strNewPass end function 'Make he random login' function makelogin(byVal maxLen) Dim strNewPass Dim whatsNext, upper, lower, intCounter Randomize upper = 99999 lower = 10000 strNew = Int((upper - lower + 1) * Rnd + lower) makelogin = strNew end function function setdec(name) var=split(round(name,2),".") if ubound(var)>0 then if len(var(1))=1 then num=round(name,2)&"0" else num=round(name,2) end if else num=round(name,2)&".00" end if setdec = num end function if session("id") = "" then sql = "select * from numbergen" set rs = con.execute(sql) while not rs.eof id1 = rs.fields(0) rs.movenext wend 'sql = "delete * from numbergen " 'set rs = con.execute(sql) id2 = id1 + 1 sql1 = "update numbergen set id="+cstr(id2) 'response.Write sql1 'response.End() set rs = con.Execute(sql1) session("id")=id2 end if if session("regid") = "" then sql = "select * from reggenerator" set rs = con.execute(sql) while not rs.eof regid1 = rs.fields(0) rs.movenext wend sql = "delete * from reggenerator" set rs = con.execute(sql) regid2 = regid1 + 1 sql1 = "insert into reggenerator values ("®id2&") " set rs = con.Execute(sql1) session("regid")=regid2 end if %>
blueangels FAQs
Program Info
Program Dates
About Us
Photo Shop
Contact Us
About Us  

To enroll in the 2014 Blue Angels Program, simply enter the number of participants you wish to enroll below and click "submit". If you have any problems with the process, please call us at (858) 509-8926 or email info@blueangelsnow.com

Please enter number of participants:      


2014 Program Info

© 2002 Action Sport Tours | Home | Privacy Policy | Sitemap