<% ' 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 = "Update models set " strSQL = strSQL & "firstname = '"& Request.Form("firstname") &"', " strSQL = strSQL & "lastname = '"& Request.Form("lastname") &"', " strSQL = strSQL & "dayofbirth ='"& Request.Form("dayofbirth") &"', " strSQL = strSQL & "monthofbirth ='"& Request.Form("monthofbirth") &"' , " strSQL = strSQL & "yearofbirth ='"& Request.Form("yearofbirth") &"' , " strSQL = strSQL & "address = '"& Request.Form("address") &"', " strSQL = strSQL & "postalnumb = '"& Request.Form("postalnumb") &"', " strSQL = strSQL & "city = '"& Request.Form("city") &"', " strSQL = strSQL & "phone = '"& Request.Form("phone") &"', " strSQL = strSQL & "mobile = '"& Request.Form("mobile") &"', " strSQL = strSQL & "email ='"& Request.Form("email") &"', " strSQL = strSQL & "female = '"& Request.Form("female") &"', " strSQL = strSQL & "height = '"& Request.Form("height") &"', " strSQL = strSQL & "weight = '"& Request.Form("weight") &"', " strSQL = strSQL & "bust = '"& Request.Form("bust") &"', " strSQL = strSQL & "waist = '"& Request.Form("waist") &"', " strSQL = strSQL & "hips = '"& Request.Form("hips") &"', " strSQL = strSQL & "steplength = '"& Request.Form("steplength") &"', " strSQL = strSQL & "leglength = '"& Request.Form("leglength") &"', " strSQL = strSQL & "eyenuance = '"& Request.Form("eyenuance") &"', " strSQL = strSQL & "eyecolor = '"& Request.Form("eyecolor") &"', " strSQL = strSQL & "othereyecolor = '"& Request.Form("othereyecolor") &"', " strSQL = strSQL & "clothessize = '"& Request.Form("clothessize") &"', " strSQL = strSQL & "shoesize = '"& Request.Form("shoesize") &"', " strSQL = strSQL & "bootsize = '"& Request.Form("bootsize") &"', " strSQL = strSQL & "BHsize = '"& Request.Form("bhsize") &"', " strSQL = strSQL & "topsize = '"& Request.Form("topsize") &"', " strSQL = strSQL & "hairlength = '"& Request.Form("hairlength") &"', " strSQL = strSQL & "haircolor = '"& Request.Form("haircolor") &"', " strSQL = strSQL & "hairtype = '"& Request.Form("hairtype") &"', " strSQL = strSQL & "skin = '"& Request.Form("skin") &"', " strSQL = strSQL & "hands = '"& Request.Form("hands") &"', " strSQL = strSQL & "teeth = '"& Request.Form("teeth") &"', " strSQL = strSQL & "underweartype = '"& Request.Form("underweartype") &"', " strSQL = strSQL & "underwearsize = '"& Request.Form("underwearsize") &"', " strSQL = strSQL & "xpshow = '"& Request.Form("xpshow") &"', " strSQL = strSQL & "xpstatist = '"& Request.Form("xpstatist") &"', " strSQL = strSQL & "xpvideo = '"& Request.Form("xpvideo") &"', " strSQL = strSQL & "xpmesse = '"& Request.Form("xpmesse") &"', " strSQL = strSQL & "xpfoto = '"& Request.Form("xpfoto") &"', " strSQL = strSQL & "xpfilm = '"& Request.Form("xpfilm") &"', " strSQL = strSQL & "xpcasting = '"& Request.Form("xpcasting") &"', " strSQL = strSQL & "inhaar = '"& Request.Form("inhaar") &"', " strSQL = strSQL & "inmesse = '"& Request.Form("inmesse") &"', " strSQL = strSQL & "inshow = '"& Request.Form("inshow") &"', " strSQL = strSQL & "instatist = '"& Request.Form("instatist") &"', " strSQL = strSQL & "infoto = '"& Request.Form("infoto") &"', " strSQL = strSQL & "infilm = '"& Request.Form("infilm") &"', " strSQL = strSQL & "invideo = '"& Request.Form("invideo") &"', " strSQL = strSQL & "catwalk = '"& Request.Form("catwalk") &"', " strSQL = strSQL & "various = '"& Request.Form("various") &"', " strSQL = strSQL & "car = '"& Request.Form("car") &"', " strSQL = strSQL & "afraidofheights = '"& Request.Form("afraidofheights") &"', " strSQL = strSQL & "swim = '"& Request.Form("swim") &"', " strSQL = strSQL & "afraidofflying = '"& Request.Form("afraidofflying") &"', " strSQL = strSQL & "nickel = '"& Request.Form("nickel") &"', " strSQL = strSQL & "smoking = '"& Request.Form("smoking") &"', " strSQL = strSQL & "personality = '"& Request.Form("personalety") &"', " strSQL = strSQL & "formerjobs = '"& Request.Form("formerjobs") &"', " strSQL = strSQL & "courses = '"& Request.Form("courses") &"', " strSQL = strSQL & "leisuretimeinterests = '"& Request.Form("leisuretimeinterest") &"', " strSQL = strSQL & "remarks = '"& Request.Form("remarks") &"', " strSQL = strSQL & "yourself = '"& Request.Form("yourself") &"', " strSQL = strSQL & "english = '"& Request.Form("english") &"', " strSQL = strSQL & "french = '"& Request.Form("french") &"', " strSQL = strSQL & "german = '"& Request.Form("german") &"' " strSQL = strSQL & " Where email = '"& session("modelID")&" ' " Conn.Execute(strSQL) strMODELID = session("modelid") strEMAIL = request.form("email") ' Luk databaseforbindelse Conn.Close Set Conn = Nothing IF (strMODELID <> strEMAIL) THEN Session.Abandon END IF %> Din profil er blevet opdateret,
d. <% Response.Write Now %>

<%IF (strMODELID <> strEMAIL) THEN response.write "Da du har ændret din email(brugernavn) bliver du nød til at logge ind igen" END IF%>