Insert into
Hey, jeg kan simpelthen ikke se hvad jeg gør galt i denne kode i indsaet_elev.asp. Den henter informationerne fra forrige side som hedder opret_elev.htm, og alle alle tekst bokse osv. har de rigtige navne. Her er koden på indsaet_elev.asp:------------------------------------------------------
<%
' Henter værdier fra formular
NAVN = Request.Form("navn")
KODEORD = Request.Form("kodeord")
KODEORD_IGEN = Request.Form("kodeord_igen")
SKOLE = Request.Form("skole")
LINIE = Request.Form("linie")
YEAR = Request.Form("year")
KLASSE = Request.Form("klasse")
KON = Request.Form("kon")
ALDER = Request.Form("alder")
HOJDE = Request.Form("hojde")
VAEGT = Request.Form("vaegt")
LANDSDEL = Request.Form("landsdel")
POSTNUMMER = Request.Form("postnummer")
CIVILSTATUS = Request.Form("civilstatus")
RYGER = Request.Form("ryger")
SOGER = Request.Form("soger")
HAARFARVE = Request.Form("haarfarve")
OJENFARVE = Request.Form("ojenfarve")
UDSEENDE = Request.Form("udseende")
TATOVERINGER = Request.Form("tatoveringer")
STJERNETEGN = Request.Form("stjernetegn")
WEBCAM = Request.Form("webcam")
EMAIL = Request.Form("email")
BROCKMAIL = Request.Form("brockmail")
NYHEDSBREV = Request.Form("nyhedsbrev")
TEKST = Request.Form("tekst")
if Request.Form("kon") = ("Mand") then
BILLEDE = ("images\man.gif")
else
BILLEDE = ("images\woman.gif")
end if
' Databaseforbindelse oprettes
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("f_date_db.mdb")
Conn.Open DSN
' SQL sætning opbygges med Insert into profil idet vi vil indsætte kundes navn og adresse.
strSQL = "Insert into profil ("
strSQL = strSQL & "p_navn, "
strSQL = strSQL & "p_kodeord, "
strSQL = strSQL & "p_kodeord_igen, "
strSQL = strSQL & "p_skole, "
strSQL = strSQL & "p_linie, "
strSQL = strSQL & "p_year, "
strSQL = strSQL & "p_klasse, "
strSQL = strSQL & "p_kon, "
strSQL = strSQL & "p_alder, "
strSQL = strSQL & "p_hojde, "
strSQL = strSQL & "p_vaegt, "
strSQL = strSQL & "p_landsdel, "
strSQL = strSQL & "p_postnummer, "
strSQL = strSQL & "p_civilstatus, "
strSQL = strSQL & "p_ryger, "
strSQL = strSQL & "p_soger, "
strSQL = strSQL & "p_haarfarve, "
strSQL = strSQL & "p_ojenfarve, "
strSQL = strSQL & "p_udseende, "
strSQL = strSQL & "p_tatoveringer, "
strSQL = strSQL & "p_stjernetegn, "
strSQL = strSQL & "p_webcam, "
strSQL = strSQL & "p_brockmail, "
strSQL = strSQL & "p_nyhedsbrev, "
strSQL = strSQL & "p_oprettet, "
strSQL = strSQL & "p_tekst, "
strSQL = strSQL & "p_billede, "
strSQL = strSQL & "p_email) "
strSQL = strSQL & "values( "
' Anvender værdier fra formular
strSQL = strSQL & "'" & NAVN & "', "
strSQL = strSQL & "'" & KODEORD & "', "
strSQL = strSQL & "'" & KODEORD_IGEN & "', "
strSQL = strSQL & "'" & SKOLE & "', "
strSQL = strSQL & "'" & LINIE & "', "
strSQL = strSQL & "'" & YEAR & "', "
strSQL = strSQL & "'" & KLASSE & "', "
strSQL = strSQL & "'" & KON & "', "
strSQL = strSQL & "'" & ALDER & "', "
strSQL = strSQL & "'" & HOJDE & "', "
strSQL = strSQL & "'" & VAEGT & "', "
strSQL = strSQL & "'" & LANDSDEL & "', "
strSQL = strSQL & "'" & POSTNUMMER & "', "
strSQL = strSQL & "'" & CIVILSTATUS & "', "
strSQL = strSQL & "'" & RYGER & "', "
strSQL = strSQL & "'" & SOGER & "', "
strSQL = strSQL & "'" & HAARFARVE & "', "
strSQL = strSQL & "'" & OJENFARVE & "', "
strSQL = strSQL & "'" & UDSEENDE & "', "
strSQL = strSQL & "'" & TATOVERINGER & "', "
strSQL = strSQL & "'" & STJERNETEGN & "', "
strSQL = strSQL & "'" & WEBCAM & "', "
strSQL = strSQL & "'" & BROCKMAIL & "', "
strSQL = strSQL & "'" & NYHEDSBREV & "', "
strSQL = strSQL & "'" & date() & "', "
strSQL = strSQL & "'" & TEKST & "', "
strSQL = strSQL & "'" & BILLEDE & "', "
strSQL = strSQL & "'" & EMAIL & "')"
on error resume next
'Hvis vi finder en fejl så går vi ned på linjen efter Conn.Execute.
Conn.Execute(strSQL)
if err<>0 then
'Fejl koden er forskellige fra 0, så der er sket en fejl og vi informerer kunden.
response.write ("Der skete en fejl! " & strSQL)
else
'Der er ingen fejl og kunden er oprettet med en velkomst hilsen.
response.write ("<p><font face='Verdana' size='1' color='#FFFFFF'>Velkommen " & NAVN & ". Gå til login :-)<br><a href='start.asp'>Tryk her, for at komme videre</font></p>")
end if
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%><body bgcolor="#000000">