<% ' Databaseforbindelse - husk at angive sti til din database Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("../db/database.mdb") Conn.Open DSN ' SQL sætning opbygges strSQL = "Insert into Aspiring_Models (" strSQL = strSQL & "firstname, " strSQL = strSQL & "lastname, " strSQL = strSQL & "dayofbirth, " strSQL = strSQL & "monthofbirth, " strSQL = strSQL & "yearofbirth, " strSQL = strSQL & "address, " strSQL = strSQL & "postalnumb, " strSQL = strSQL & "city, " strSQL = strSQL & "phone, " strSQL = strSQL & "mobile, " strSQL = strSQL & "email, " strSQL = strSQL & "female, " strSQL = strSQL & "height, " strSQL = strSQL & "weight, " strSQL = strSQL & "bust, " strSQL = strSQL & "waist, " strSQL = strSQL & "hips, " strSQL = strSQL & "steplength, " strSQL = strSQL & "leglength, " strSQL = strSQL & "eyenuance, " strSQL = strSQL & "eyecolor, " strSQL = strSQL & "othereyecolor, " strSQL = strSQL & "clothessize, " strSQL = strSQL & "shoesize, " strSQL = strSQL & "bootsize, " strSQL = strSQL & "BHsize, " strSQL = strSQL & "topsize, " strSQL = strSQL & "hairlength, " strSQL = strSQL & "haircolor, " strSQL = strSQL & "hairtype, " strSQL = strSQL & "skin, " strSQL = strSQL & "hands, " strSQL = strSQL & "teeth, " strSQL = strSQL & "underweartype, " strSQL = strSQL & "underwearsize, " strSQL = strSQL & "xpshow, " strSQL = strSQL & "xpstatist, " strSQL = strSQL & "xpvideo, " strSQL = strSQL & "xpmesse, " strSQL = strSQL & "xpfoto, " strSQL = strSQL & "xpfilm, " strSQL = strSQL & "xpcasting, " strSQL = strSQL & "inhaar, " strSQL = strSQL & "inmesse, " strSQL = strSQL & "inshow, " strSQL = strSQL & "instatist, " strSQL = strSQL & "infoto, " strSQL = strSQL & "infilm, " strSQL = strSQL & "invideo, " strSQL = strSQL & "catwalk, " strSQL = strSQL & "various, " strSQL = strSQL & "car, " strSQL = strSQL & "afraidofheights, " strSQL = strSQL & "swim, " strSQL = strSQL & "afraidofflying, " strSQL = strSQL & "nickel, " strSQL = strSQL & "smoking, " strSQL = strSQL & "personality, " strSQL = strSQL & "formerjobs, " strSQL = strSQL & "courses, " strSQL = strSQL & "leisuretimeinterests, " strSQL = strSQL & "remarks, " strSQL = strSQL & "yourself, " strSQL = strSQL & "english, " strSQL = strSQL & "french, " strSQL = strSQL & "german, " strSQL = strSQL & "other1, " strSQL = strSQL & "other2, " strSQL = strSQL & "other3) " strSQL = strSQL & "values(" strSQL = strSQL & "'" & Request.Form("firstname") & "', " strSQL = strSQL & "'" & Request.Form("lastname") & "', " strSQL = strSQL & "'" & Request.Form("dayofbirth") & "', " strSQL = strSQL & "'" & Request.Form("monthofbirth") & "', " strSQL = strSQL & "'" & Request.Form("yearofbirth") & "', " strSQL = strSQL & "'" & Request.Form("address") & "', " strSQL = strSQL & "'" & Request.Form("postalnumb") & "', " strSQL = strSQL & "'" & Request.Form("city") & "', " strSQL = strSQL & "'" & Request.Form("phone") & "', " strSQL = strSQL & "'" & Request.Form("mobile") & "', " strSQL = strSQL & "'" & Request.Form("email") & "', " strSQL = strSQL & "'" & Request.Form("female") & "', " strSQL = strSQL & "'" & Request.Form("height") & "', " strSQL = strSQL & "'" & Request.Form("weight") & "', " strSQL = strSQL & "'" & Request.Form("bust") & "', " strSQL = strSQL & "'" & Request.Form("waist") & "', " strSQL = strSQL & "'" & Request.Form("hips") & "', " strSQL = strSQL & "'" & Request.Form("steplength") & "', " strSQL = strSQL & "'" & Request.Form("leglength") & "', " strSQL = strSQL & "'" & Request.Form("eyenuance") & "', " strSQL = strSQL & "'" & Request.Form("eyecolor") & "', " strSQL = strSQL & "'" & Request.Form("othereyecolor") & "', " strSQL = strSQL & "'" & Request.Form("clothessize") & "', " strSQL = strSQL & "'" & Request.Form("shoesize") & "', " strSQL = strSQL & "'" & Request.Form("bootsize") & "', " strSQL = strSQL & "'" & Request.Form("BHsize") & "', " strSQL = strSQL & "'" & Request.Form("topsize") & "', " strSQL = strSQL & "'" & Request.Form("hairlength") & "', " strSQL = strSQL & "'" & Request.Form("haircolor") & "', " strSQL = strSQL & "'" & Request.Form("hairtype") & "', " strSQL = strSQL & "'" & Request.Form("skin") & "', " strSQL = strSQL & "'" & Request.Form("hands") & "', " strSQL = strSQL & "'" & Request.Form("teeth") & "', " strSQL = strSQL & "'" & Request.Form("underweartype") & "', " strSQL = strSQL & "'" & Request.Form("underwearsize") & "', " strSQL = strSQL & "'" & Request.Form("xpshow") & "', " strSQL = strSQL & "'" & Request.Form("xpstatist") & "', " strSQL = strSQL & "'" & Request.Form("xpvideo") & "', " strSQL = strSQL & "'" & Request.Form("xpmesse") & "', " strSQL = strSQL & "'" & Request.Form("xpfoto") & "', " strSQL = strSQL & "'" & Request.Form("xpfilm") & "', " strSQL = strSQL & "'" & Request.Form("xpcasting") & "', " strSQL = strSQL & "'" & Request.Form("inhaar") & "', " strSQL = strSQL & "'" & Request.Form("inmesse") & "', " strSQL = strSQL & "'" & Request.Form("inshow") & "', " strSQL = strSQL & "'" & Request.Form("instatist") & "', " strSQL = strSQL & "'" & Request.Form("infoto") & "', " strSQL = strSQL & "'" & Request.Form("infilm") & "', " strSQL = strSQL & "'" & Request.Form("invideo") & "', " strSQL = strSQL & "'" & Request.Form("catwalk") & "', " strSQL = strSQL & "'" & Request.Form("various") & "', " strSQL = strSQL & "'" & Request.Form("car") & "', " strSQL = strSQL & "'" & Request.Form("afraidofheights") & "', " strSQL = strSQL & "'" & Request.Form("swim") & "', " strSQL = strSQL & "'" & Request.Form("afraidofflying") & "', " strSQL = strSQL & "'" & Request.Form("nickel") & "', " strSQL = strSQL & "'" & Request.Form("smoking") & "', " strSQL = strSQL & "'" & Request.Form("personality") & "', " strSQL = strSQL & "'" & Request.Form("formerjobs") & "', " strSQL = strSQL & "'" & Request.Form("courses") & "', " strSQL = strSQL & "'" & Request.Form("leisuretimeinterests") & "', " strSQL = strSQL & "'" & Request.Form("remarks") & "', " strSQL = strSQL & "'" & Request.Form("yourself") & "', " strSQL = strSQL & "'" & Request.Form("english") & "', " strSQL = strSQL & "'" & Request.Form("french") & "', " strSQL = strSQL & "'" & Request.Form("german") & "', " strSQL = strSQL & "'" & Request.Form("other1") & "', " strSQL = strSQL & "'" & Request.Form("other2") & "', " strSQL = strSQL & "'" & Request.Form("other3") & "') " Conn.Execute(strSQL) ' Luk databaseforbindelse Conn.Close Set Conn = Nothing %> Dit modelansøgningsskema er blevet modtaget
d. <% Response.Write Now %>
Du vil blive kontaktet hurtigst muligt.
mvh Fiction Model Look