<% ' FP_ASP ASP ble automatisk generert av en FrontPage-komponent. Ikke rediger. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 1252 Err.Clear strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Kan ikke lage tilkobling" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Kan ikke opprette datapostsett" fp_conn.Open Application("Entry_form1_ConnectionString") FP_DumpError strErrorUrl, "Kan ikke åpne database" fp_rs.Open "Resultater", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Kan ikke åpne datapostsett" fp_rs.AddNew FP_DumpError strErrorUrl, "Kan ikke legge til nytt datapostsett i databasen" Dim arFormFields0(28) Dim arFormDBFields0(28) Dim arFormValues0(28) arFormFields0(0) = "Double" arFormDBFields0(0) = "Double" arFormValues0(0) = Request("Double") arFormFields0(1) = "Persons" arFormDBFields0(1) = "Persons" arFormValues0(1) = Request("Persons") arFormFields0(2) = "CV" arFormDBFields0(2) = "CV" arFormValues0(2) = Request("CV") arFormFields0(3) = "Own" arFormDBFields0(3) = "Own" arFormValues0(3) = Request("Own") arFormFields0(4) = "Pilot" arFormDBFields0(4) = "Pilot" arFormValues0(4) = Request("Pilot") arFormFields0(5) = "Judge" arFormDBFields0(5) = "Judge" arFormValues0(5) = Request("Judge") arFormFields0(6) = "Sportsman" arFormDBFields0(6) = "Sportsman" arFormValues0(6) = Request("Sportsman") arFormFields0(7) = "Intermediate" arFormDBFields0(7) = "Intermediate" arFormValues0(7) = Request("Intermediate") arFormFields0(8) = "Adress" arFormDBFields0(8) = "Adress" arFormValues0(8) = Request("Adress") arFormFields0(9) = "Lunch" arFormDBFields0(9) = "Lunch" arFormValues0(9) = Request("Lunch") arFormFields0(10) = "Nation" arFormDBFields0(10) = "Nation" arFormValues0(10) = Request("Nation") arFormFields0(11) = "Single" arFormDBFields0(11) = "Single" arFormValues0(11) = Request("Single") arFormFields0(12) = "Email" arFormDBFields0(12) = "Email" arFormValues0(12) = Request("Email") arFormFields0(13) = "Official" arFormDBFields0(13) = "Official" arFormValues0(13) = Request("Official") arFormFields0(14) = "Phone" arFormDBFields0(14) = "Phone" arFormValues0(14) = Request("Phone") arFormFields0(15) = "Cabin1" arFormDBFields0(15) = "Cabin1" arFormValues0(15) = Request("Cabin1") arFormFields0(16) = "Name" arFormDBFields0(16) = "Name" arFormValues0(16) = Request("Name") arFormFields0(17) = "Cabin2" arFormDBFields0(17) = "Cabin2" arFormValues0(17) = Request("Cabin2") arFormFields0(18) = "Dep" arFormDBFields0(18) = "Dep" arFormValues0(18) = Request("Dep") arFormFields0(19) = "GRent" arFormDBFields0(19) = "GRent" arFormValues0(19) = Request("GRent") arFormFields0(20) = "Glider" arFormDBFields0(20) = "Glider" arFormValues0(20) = Request("Glider") arFormFields0(21) = "Birth" arFormDBFields0(21) = "Birth" arFormValues0(21) = Request("Birth") arFormFields0(22) = "Message" arFormDBFields0(22) = "Message" arFormValues0(22) = Request("Message") arFormFields0(23) = "Arr" arFormDBFields0(23) = "Arr" arFormValues0(23) = Request("Arr") arFormFields0(24) = "Breakfast" arFormDBFields0(24) = "Breakfast" arFormValues0(24) = Request("Breakfast") arFormFields0(25) = "Camp" arFormDBFields0(25) = "Camp" arFormValues0(25) = Request("Camp") arFormFields0(26) = "Dinner" arFormDBFields0(26) = "Dinner" arFormValues0(26) = Request("Dinner") arFormFields0(27) = "Reg" arFormDBFields0(27) = "Reg" arFormValues0(27) = Request("Reg") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 If Request.ServerVariables("REMOTE_HOST") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Navn_på_ekstern_maskin" End If FP_SaveFieldToDB fp_rs, Now, "Tidsangivelse" If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Type_leser" End If If Request.ServerVariables("REMOTE_USER") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "Brukernavn" End If fp_rs.Update FP_DumpError strErrorUrl, "Kan ikke oppdatere databasen" fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Skjemabekreftelse",_ "Takk for at du sendte inn følgende informasjon:",_ "Entry_form.asp",_ "Gå tilbake til skjemaet." End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> NGAC2011

Nordic Glider Aerobatic Championships 2011
Starmoen
July 14th to 17th

-Home
-Entry form
-Competitors
-Documents

-Contact us

 

Entry form

Fill out the form below.
Please e-mail (snlf@nlf.no) a picture of you and your glider to publish on website - thanks!

Entry fee NOK 1250 should bee paid no later than 2011.07.01

NGAC 20
11
Norwegian Airsports Federation
Bank: Den Norske Bank, N-0022 Oslo, NORGE
Account no: 5002.05.01577
IBAN nummer: NO4050020501577
Swift code: DNBANOKK

Personal information:

Mark on of the following checkboxes:
Pilot
Judge
Official

Competition class:
               
Sportsman
               
Advanced

Nation

Name:            

Date of Birth:   

Adress:          
                       

Phone:             

E-mail:             

Your career:
 

Accommodation:

Single room (on site): NOK 420/night
Double room (on site):
NOK 580/night

Cabins* (on site): Thursday-Sunday 3500 NOK
Cabins* (on site): Monday-Sunday
6000 NOK
*Cabins available on "first come first serve"

Camping (on site): 125 NOK/night

If hotel, please contact:  Rica Central Elverum, http://www.hotel-central.no/

Arrival date:            

Departure date:       

Number of persons:

Meals:

I order following daily meals served on field
Breakfast,
75 NOK/day
Lunch,
100 NOK/day
Dinner, 150 NOK/day

Glider information

I will rent glider on site (ASK-21)

I will bring my own glider or use the following glider

                  Glider type:           

                  Glider registration:

Message to the organizer:
 

 

 

Sist oppdatert: 25. May 2011