Indsæt i access database - virker ikke

Der er en fejl efter Test for der er en \" for meget og der mangler en \' efter datoen

Gider du ikke lige rette det til som det skal være og så poste hele scriptet igen, for jeg har ikke helt forstået hvor det er du gerne vil ha rettet noget!!

INSERT INTO brugere (navn, adresse, postnr, by, oprettet) VALUES (\'Test\',\'test\',\'1234\',\'test\',\'04-01-2002\')

sådan her skulle det gerne være..!

//Rune

if side = \"tilfoj_1\" then
If Request(\"navn\") <> \"\" AND Request(\"adresse\") <> \"\" AND Request(\"postnr\") <> \"\" AND Request(\"by\") <> \"\" Then
tilfoj_1 = TRUE
Else
tilfoj_1 = FALSE
response.write(\"<br><br><center><b><span class=\'fejl\'>Alle felterne skal udfyldes</span></b><br><br><a class=\'normal\' href=\'java script:history.back(1)\'>Tilbage</a></center>\")
End IF
If tilfoj_1 = True then
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"../../spejder.mdb\")
SQLstmt = \"INSERT INTO brugere (navn, adresse, postnr, by, oprettet)\"
SQLstmt = SQLstmt & \" VALUES (\'\" & request.form(\"navn\") & \"\',\'\" & request.form(\"adresse\") & \"\',\'\" & request.form(\"postnr\") & \"\',\'\" & request.form(\"by\") & \"\',\'\" & date() & \"\')\"
response.write sqlstmt
Conn.Execute (SQLstmt)
conn.Close
Set conn = nothing
Set SQLstmt = nothing
response.redirect (\"opret_bruger_ny.asp?side=step_2\")
end if
end if

INSERT INTO brugere (navn, adresse, postnr, by, oprettet) VALUES (\'Test\',\'test\',\'1234\',\'test\',\'04-01-2002\')
Microsoft OLE DB Provider for ODBC Drivers error \'80040e14\'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement.

/adm/troldhoej2/interne/opret/opret_bruger_ny.asp, line 69


line 69:
response.write sqlstmt

hmm.. prøv med denne:

    sql = \"Insert Into brugere(navn, adresse, postnr, by, oprettet) Values(\'\"
    sql = sql & request.form(\"navn\") & \"\',\'\"
    sql = sql & request.form(\"adresse\") & \"\',\'\"
    sql = sql & request.form(\"postnr\") & \"\',\'\"
    sql = sql & request.form(\"by\") & \"\',\'\"
    sql = sql & date() \"\')\"

conn.execute(strSQL)
    Conn.Close

ups.. sorry

if side = \"tilfoj_1\" then
If Request(\"navn\") <> \"\" AND Request(\"adresse\") <> \"\" AND Request(\"postnr\") <> \"\" AND Request(\"by\") <> \"\" Then
tilfoj_1 = TRUE
Else
tilfoj_1 = FALSE
response.write(\"<br><br><center><b><span class=\'fejl\'>Alle felterne skal udfyldes</span></b><br><br><a class=\'normal\' href=\'java script:history.back(1)\'>Tilbage</a></center>\")
End IF
If tilfoj_1 = True then
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"../../spejder.mdb\")
    sql = \"Insert Into brugere(navn, adresse, postnr, by, oprettet) Values(\'\"
    sql = sql & request.form(\"navn\") & \"\',\'\"
    sql = sql & request.form(\"adresse\") & \"\',\'\"
    sql = sql & request.form(\"postnr\") & \"\',\'\"
    sql = sql & request.form(\"by\") & \"\',\'\"
    sql = sql & date() \"\')\"

conn.execute(sql)
conn.Close
Set conn = nothing
Set SQLstmt = nothing
response.redirect (\"opret_bruger_ny.asp?side=step_2\")
end if
end if

Microsoft OLE DB Provider for ODBC Drivers error \'80040e14\'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement.

/adm/troldhoej2/interne/opret/opret_bruger_ny.asp, line 73

linie 73:
conn.execute(sql)

hmm... prøv lige dette:

if side = \"tilfoj_1\" then
If Request(\"navn\") <> \"\" AND Request(\"adresse\") <> \"\" AND Request(\"postnr\") <> \"\" AND Request(\"by\") <> \"\" Then
tilfoj_1 = TRUE
Else
tilfoj_1 = FALSE
response.write(\"<br><br><center><b><span class=\'fejl\'>Alle felterne skal udfyldes</span></b><br><br><a class=\'normal\' href=\'java script:history.back(1)\'>Tilbage</a></center>\")
End IF
If tilfoj_1 = True then
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"../../spejder.mdb\")
    sql = \"Insert Into brugere(navn, adresse, postnr, by, oprettet) Values(\'\"
    sql = sql & request.form(\"navn\") & \"\',\'\"
    sql = sql & request.form(\"adresse\") & \"\',\'\"
    sql = sql & request.form(\"postnr\") & \"\',\'\"
    sql = sql & request.form(\"by\") & \"\',\'\"
    sql = sql & date() \"\')\"
    Response.Write(sql)
conn.execute(sql)
conn.Close
Set conn = nothing
Set SQLstmt = nothing
response.redirect (\"opret_bruger_ny.asp?side=step_2\")
end if
end if

Heldige er vi ikke...

Insert Into brugere(navn, adresse, postnr, by) Values(\'test\',\'test\',\'1234\',\'test\',\'
Microsoft OLE DB Provider for ODBC Drivers error \'80040e14\'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement.

/adm/troldhoej2/interne/opret/opret_bruger_ny.asp, line 73

line 73:
conn.execute(sql)

så prøv med:

if side = \"tilfoj_1\" then
If Request(\"navn\") <> \"\" AND Request(\"adresse\") <> \"\" AND Request(\"postnr\") <> \"\" AND Request(\"by\") <> \"\" Then
tilfoj_1 = TRUE
Else
tilfoj_1 = FALSE
response.write(\"<br><br><center><b><span class=\'fejl\'>Alle felterne skal udfyldes</span></b><br><br><a class=\'normal\' href=\'java script:history.back(1)\'>Tilbage</a></center>\")
End IF
If tilfoj_1 = True then
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"../../spejder.mdb\")
    sql = \"Insert Into brugere(navn, adresse, postnr, by, oprettet) Values(\'\"
    sql = sql & request.form(\"navn\") & \"\',\'\"
    sql = sql & request.form(\"adresse\") & \"\',\'\"
    sql = sql & request.form(\"postnr\") & \"\',\'\"
    sql = sql & request.form(\"by\") & \"\',\"
    sql = sql & date() \")\"
    Response.Write(sql)
conn.execute(sql)
conn.Close
Set conn = nothing
Set SQLstmt = nothing
response.redirect (\"opret_bruger_ny.asp?side=step_2\")
end if
end if

Insert Into brugere(navn, adresse, postnr, by) Values(\'test\',\'test\',\'1234\',\'test\',
Microsoft OLE DB Provider for ODBC Drivers error \'80040e14\'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement.

/adm/troldhoej2/interne/opret/opret_bruger_ny.asp, line 73

line 73 er stadig den samme...

så prøver vi bare igen :-)

if side = \"tilfoj_1\" then
If Request(\"navn\") <> \"\" AND Request(\"adresse\") <> \"\" AND Request(\"postnr\") <> \"\" AND Request(\"by\") <> \"\" Then
tilfoj_1 = TRUE
Else
tilfoj_1 = FALSE
response.write(\"<br><br><center><b><span class=\'fejl\'>Alle felterne skal udfyldes</span></b><br><br><a class=\'normal\' href=\'java script:history.back(1)\'>Tilbage</a></center>\")
End IF
If tilfoj_1 = True then
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"../../spejder.mdb\")
    sql = \"Insert Into brugere(navn, adresse, postnr, by, oprettet) Values(\'\"
    sql = sql & request.form(\"navn\") & \"\',\'\"
    sql = sql & request.form(\"adresse\") & \"\',\'\"
    sql = sql & request.form(\"postnr\") & \"\',\'\"
    sql = sql & request.form(\"by\") & \"\',#\"
    sql = sql & date() \"#)\"
    Response.Write(sql)
conn.execute(sql)
conn.Close
Set conn = nothing
Set SQLstmt = nothing
response.redirect (\"opret_bruger_ny.asp?side=step_2\")
end if
end if

Insert Into brugere(navn, adresse, postnr, by) Values(\'test\',\'test\',\'1234\',\'test\',#
Microsoft OLE DB Provider for ODBC Drivers error \'80040e14\'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement.

/adm/troldhoej2/interne/opret/opret_bruger_ny.asp, line 73

hmm... så lad os prøve med:

if side = \"tilfoj_1\" then
If Request(\"navn\") <> \"\" AND Request(\"adresse\") <> \"\" AND Request(\"postnr\") <> \"\" AND Request(\"by\") <> \"\" Then
tilfoj_1 = TRUE
Else
tilfoj_1 = FALSE
response.write(\"<br><br><center><b><span class=\'fejl\'>Alle felterne skal udfyldes</span></b><br><br><a class=\'normal\' href=\'java script:history.back(1)\'>Tilbage</a></center>\")
End IF
If tilfoj_1 = True then
strDato = Date()
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"../../spejder.mdb\")
    sql = \"Insert Into brugere(navn, adresse, postnr, by, oprettet) Values(\'\"
    sql = sql & request.form(\"navn\") & \"\',\'\"
    sql = sql & request.form(\"adresse\") & \"\',\'\"
    sql = sql & request.form(\"postnr\") & \"\',\'\"
    sql = sql & request.form(\"by\") & \"\',\'\"
    sql = sql & strDato \"\')\"
    Response.Write(sql)
conn.execute(sql)
conn.Close
Set conn = nothing
Set SQLstmt = nothing
response.redirect (\"opret_bruger_ny.asp?side=step_2\")
end if
end if



hehe det er ved at blive sjovt det her ;-)

Insert Into brugere(navn, adresse, postnr, by) Values(\'test\',\'test\',\'1234\',\'test\',\'
Microsoft OLE DB Provider for ODBC Drivers error \'80040e14\'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement.

/adm/troldhoej2/interne/opret/opret_bruger_ny.asp, line 74

Før eller siden finder vi vel noget der kan bruges... Er det nemmere hvis jeg sender dig en zip fil med database og det hele??

yep...

rune@medions.dk

;-)

Så er den sendt...

er igang...!

*LOL*
det er satme den største database jeg LÆNGE har set ;-)


//Rune

Lyder godt... :-)

ok.. nu virker det ;-)

har lavet et Recordset i stedetfor...


<% Response.Buffer = True %>
<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0//EN\">
<HTML>
<HEAD>
<TITLE>Troldhøj Division - Interne sider - Opret bruger</TITLE>
  <SCRIPT language=\"JavaScript\">
<!--
function luk()
    {
    window.close();
}
// -->
</SCRIPT>
<META NAME=\"Generator\" CONTENT=\"Stone\'s WebWriter 3.5\">
</HEAD>
<LINK href=\"../../grafik.css\" rel=stylesheet type=text/css>
<body topmargin=\"0\" leftmargin=\"0\" marginheight=0 marginwidth=0 class=\"baggrund\">
<% side = request(\"side\")
if side = \"\" then %>
<table width=\"100%\" CELLPADDING=\"4\" CELLSPACING=\"0\" border=\"0\">
<tr width=\"75%\"><td class=\"gron\"><span class=\"hvid\"><b>1 - Personlige oplysninger</b> - 2 - 3</span></td>
<td width=\"25%\" class=\"gron\"><DIV STYLE=\"text-align:right\"><a class=\"hvid\" href=\"java script:luk()\">Luk vinduet</a></DIV></td></tr>
<tr><td><span class=\"normal\"><img src=\"../../images/pil.gif\">&nbsp;Udfyld felterne neden under og tryk på næste...<br><img src=\"../../images/pil.gif\">&nbsp;Alle felter <b>skal</b> udfyldes</span><br></td></tr></table>

<table width=\"100%\" CELLPADDING=\"4\" CELLSPACING=\"0\" border=\"0\"><tr><td>

<FORM method=\"post\" action=\"opret_bruger_ny.asp?side=tilfoj_1\">
<TABLE BORDER=\"0\" CELLSPACING=\"0\" CELLPADDING=\"0\" width=\"440\">
<TR>
    <TD class=\"gron\" colspan=\"2\" width=\"440\"><span class=\"overskrift\">Personlige oplysninger</span></TD></tr>

<TR><TD valign=\"top\" width=\"100\" style=\'border-bottom: 1px solid #3C9751\'><span class=\"normal\"><IMG SRC=\"../../images/pil.gif\" BORDER=\"0\">&nbsp;<b>Navn:</b></span></TD>
<TD width=\"340\" style=\'border-bottom: 1px solid #3C9751\'><input type=\"text\" name=\"navn\" size=\"50\" style=\"font-family: Arial; font-size: 10 pt; border-style: double; border-color: #224492\"></td></tr>

<TR><TD valign=\"top\" width=\"100\" style=\'border-bottom: 1px solid #3C9751\'><span class=\"normal\"><IMG SRC=\"../../images/pil.gif\" BORDER=\"0\">&nbsp;<b>Adresse:</b></span></TD>
<TD width=\"340\" style=\'border-bottom: 1px solid #3C9751\'><input type=\"text\" name=\"adresse\" size=\"50\" style=\"font-family: Arial; font-size: 10 pt; border-style: double; border-color: #224492\"></td></tr>

<TR><TD valign=\"top\" width=\"100\" style=\'border-bottom: 1px solid #3C9751\'><span class=\"normal\"><IMG SRC=\"../../images/pil.gif\" BORDER=\"0\">&nbsp;<b>Postnr:</b></span></TD>
<TD width=\"340\" style=\'border-bottom: 1px solid #3C9751\'><input type=\"text\" name=\"postnr\" size=\"5\" style=\"font-family: Arial; font-size: 10 pt; border-style: double; border-color: #224492\"></td></tr>

<TR><TD valign=\"top\" width=\"100\" style=\'border-bottom: 1px solid #3C9751\'><span class=\"normal\"><IMG SRC=\"../../images/pil.gif\" BORDER=\"0\">&nbsp;<b>By:</b></span></TD>
<TD width=\"340\" style=\'border-bottom: 1px solid #3C9751\'><input type=\"text\" name=\"by\" size=\"50\" style=\"font-family: Arial; font-size: 10 pt; border-style: double; border-color: #224492\"></td></tr>

<tr><td colspan=\"2\" style=\'border-bottom: 1px solid #3C9751\'><input type=\"submit\" value=\"Næste >>\" style=\"font-family: Arial; font-size: 10 pt; font-weight: bold; background-color: #FFFFFF; border-style: double; border-color: #224492\"></td></tr>
</table><input type=\"hidden\" name=\"dato\" value=\"test\"></FORM>
</td></tr></table>
<div align=\"center\"><span class=\"laes\">Troldhøj Division - Interne sider<br>Det Danske Spejderkorps</span></div>
<% end if
if side = \"tilfoj_1\" then
If Request(\"navn\") <> \"\" AND Request(\"adresse\") <> \"\" AND Request(\"postnr\") <> \"\" AND Request(\"by\") <> \"\" Then
tilfoj_1 = TRUE
Else
tilfoj_1 = FALSE
response.write(\"<br><br><center><b><span class=\'fejl\'>Alle felterne skal udfyldes</span></b><br><br><a class=\'normal\' href=\'java script:history.back(1)\'>Tilbage</a></center>\")
End IF

if side = \"tilfoj_1\" then
If Request(\"navn\") <> \"\" AND Request(\"adresse\") <> \"\" AND Request(\"postnr\") <> \"\" AND Request(\"by\") <> \"\" Then
tilfoj_1 = TRUE
Else
tilfoj_1 = FALSE
response.write(\"<br><br><center><b><span class=\'fejl\'>Alle felterne skal udfyldes</span></b><br><br><a class=\'normal\' href=\'java script:history.back(1)\'>Tilbage</a></center>\")
End IF
If tilfoj_1 = True then

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Set rs = Server.CreateObject(\"ADODB.Recordset\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"../../spejder.mdb\")

strSQL = \"SELECT * FROM brugere\"

rs.Open strSQl, Conn, 1, 3
rs.AddNew

rs(\"navn\")        = Request.Form(\"navn\")
rs(\"adresse\")    = Request.Form(\"adresse\")
rs(\"postnr\")    = Request.Form(\"postnr\")
rs(\"oprettet\")    = Request.Form(\"oprettet\")
rs(\"by\")        = Request.Form(\"by\")
rs.Update

conn.Close
Set conn = nothing
Set strSQL = nothing
response.redirect (\"opret_bruger_ny.asp?side=step_2\")
end if
end if
   


if side = \"step_2\" then %>
<table width=\"100%\" CELLPADDING=\"4\" CELLSPACING=\"0\" border=\"0\">
<tr width=\"75%\"><td class=\"gron\"><span class=\"hvid\"><b>1</b> - 2 - Login oplysninger - 3</span></td>
<td width=\"25%\" class=\"gron\"><DIV STYLE=\"text-align:right\"><a class=\"hvid\" href=\"java script:luk()\">Luk vinduet</a></DIV></td></tr>
<tr><td><span class=\"normal\"><img src=\"../../images/pil.gif\">&nbsp;Udfyld felterne neden under og tryk på næste...<br><img src=\"../../images/pil.gif\">&nbsp;Alle felter <b>skal</b> udfyldes</span><br></td></tr></table>
<% end if

end if %>



</BODY>
</HTML>

jeg tænkte på om du ikke kunne sende hele scriptet.. (gad godt at se hvordan du arbejder med den store database)


//Rune

Det var dejligt..

Angående \"hele scriptet\" er jeg ikke lige med på hvad du mener?

Databasen bruger jeg til hele siden... Det er alt lige fra et debatforum til nogle administrations sider, som er det du lige har hjulpet med!! :-)

Det er et led i en større opdatering jeg er i gang med... Den nuværende side kan ses her: www.dds.dk/troldhoej

hele scriptet = hele siden..

altså hvor jeg kan se hvordan du arbejder med det hele...!


//Rune

Hvis det er hele din fil du har støttet med, så værsgo da...
<% Response.Buffer = True %>
<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0//EN\">
<HTML>
<HEAD>
<TITLE>Troldhøj Division - Interne sider - Opret bruger</TITLE>
  <SCRIPT language=\"JavaScript\">
<!--
function luk()
    {
    window.close();
}
// -->
</SCRIPT>
<META NAME=\"Generator\" CONTENT=\"Stone\'s WebWriter 3.5\">
</HEAD>
<LINK href=\"../../inc/css/grafik.css\" rel=stylesheet type=text/css>
<body topmargin=\"0\" leftmargin=\"0\" marginheight=0 marginwidth=0 class=\"baggrund\">
<% side = request(\"side\")
if side = \"\" then %>
<table width=\"100%\" CELLPADDING=\"4\" CELLSPACING=\"0\" border=\"0\">
<tr width=\"75%\"><td class=\"gron\"><span class=\"hvid\"><b>1 - Personlige oplysninger</b> - 2 - 3 - 4</span></td>
<td width=\"25%\" class=\"gron\"><DIV STYLE=\"text-align:right\"><a class=\"hvid\" href=\"java script:luk()\">Luk vinduet</a></DIV></td></tr>
<tr><td><span class=\"normal\"><img src=\"../../images/pil.gif\">&nbsp;Udfyld felterne neden under og tryk på næste...<br><img src=\"../../images/pil.gif\">&nbsp;Alle felter <b>skal</b> udfyldes</span><br></td></tr></table>

<table width=\"100%\" CELLPADDING=\"4\" CELLSPACING=\"0\" border=\"0\"><tr><td>

<FORM method=\"post\" action=\"opret_bruger_ny.asp?side=lager_1\">
<TABLE BORDER=\"0\" CELLSPACING=\"0\" CELLPADDING=\"0\" width=\"440\">
<TR>
    <TD class=\"gron\" colspan=\"2\" width=\"440\"><span class=\"overskrift\">Personlige oplysninger</span></TD></tr>

<TR><TD valign=\"top\" width=\"100\" style=\'border-bottom: 1px solid #3C9751\'><span class=\"normal\"><IMG SRC=\"../../images/pil.gif\" BORDER=\"0\">&nbsp;<b>Navn:</b></span></TD>
<TD width=\"340\" style=\'border-bottom: 1px solid #3C9751\'><input type=\"text\" name=\"navn\" size=\"50\" style=\"font-family: Arial; font-size: 10 pt; border-style: double; border-color: #224492\"></td></tr>

<TR><TD valign=\"top\" width=\"100\" style=\'border-bottom: 1px solid #3C9751\'><span class=\"normal\"><IMG SRC=\"../../images/pil.gif\" BORDER=\"0\">&nbsp;<b>Adresse:</b></span></TD>
<TD width=\"340\" style=\'border-bottom: 1px solid #3C9751\'><input type=\"text\" name=\"adresse\" size=\"50\" style=\"font-family: Arial; font-size: 10 pt; border-style: double; border-color: #224492\"></td></tr>

<TR><TD valign=\"top\" width=\"100\" style=\'border-bottom: 1px solid #3C9751\'><span class=\"normal\"><IMG SRC=\"../../images/pil.gif\" BORDER=\"0\">&nbsp;<b>Postnr:</b></span></TD>
<TD width=\"340\" style=\'border-bottom: 1px solid #3C9751\'><input type=\"text\" name=\"postnr\" size=\"5\" style=\"font-family: Arial; font-size: 10 pt; border-style: double; border-color: #224492\"></td></tr>

<TR><TD valign=\"top\" width=\"100\" style=\'border-bottom: 1px solid #3C9751\'><span class=\"normal\"><IMG SRC=\"../../images/pil.gif\" BORDER=\"0\">&nbsp;<b>By:</b></span></TD>
<TD width=\"340\" style=\'border-bottom: 1px solid #3C9751\'><input type=\"text\" name=\"by\" size=\"50\" style=\"font-family: Arial; font-size: 10 pt; border-style: double; border-color: #224492\"></td></tr>

<TR><TD valign=\"top\" width=\"100\" style=\'border-bottom: 1px solid #3C9751\'><span class=\"normal\"><IMG SRC=\"../../images/pil.gif\" BORDER=\"0\">&nbsp;<b>E-mail:</b></span></TD>
<TD width=\"340\" style=\'border-bottom: 1px solid #3C9751\'><input type=\"text\" name=\"email\" size=\"50\" style=\"font-family: Arial; font-size: 10 pt; border-style: double; border-color: #224492\"></td></tr>

<tr><td colspan=\"2\" style=\'border-bottom: 1px solid #3C9751\'><input type=\"submit\" value=\"Næste >>\" style=\"font-family: Arial; font-size: 10 pt; font-weight: bold; background-color: #FFFFFF; border-style: double; border-color: #224492\"></td></tr>
</table><input type=\"hidden\" name=\"dato\" value=\"test\"></FORM>
</td></tr></table>
<div align=\"center\"><span class=\"laes\">Troldhøj Division - Interne sider<br>Det Danske Spejderkorps</span></div>
<% end if
if side = \"lager_1\" then

If Request(\"navn\") <> \"\" AND Request(\"adresse\") <> \"\" AND Request(\"postnr\") <> \"\" AND Request(\"by\") <> \"\" AND Request(\"email\") <> \"\" Then
tilfoj_1 = TRUE
Else
tilfoj_1 = FALSE
response.write(\"<br><br><center><b><span class=\'fejl\'>Alle felterne skal udfyldes</span></b><br><br><a class=\'normal\' href=\'java script:history.back(1)\'>Tilbage</a></center>\")
End IF
If tilfoj_1 = True then
Session(\"navn\") = Request.form(\"navn\")
Session(\"adresse\") = Request.form(\"adresse\")
Session(\"postnr\") = Request.form(\"postnr\")
Session(\"by\") = Request.form(\"by\")
Session(\"email\") = Request.form(\"email\")
response.redirect(\"opret_bruger_ny.asp?side=step_2\")
end if
end if
if side = \"step_2\" then %>
<table width=\"100%\" CELLPADDING=\"4\" CELLSPACING=\"0\" border=\"0\">
<tr width=\"75%\"><td class=\"gron\"><span class=\"hvid\">1 - <b>2 - Login oplysninger</b> - 3 - 4</span></td>
<td width=\"25%\" class=\"gron\"><DIV STYLE=\"text-align:right\"><a class=\"hvid\" href=\"java script:luk()\">Luk vinduet</a></DIV></td></tr>
<tr><td><span class=\"normal\"><img src=\"../../images/pil.gif\">&nbsp;Udfyld felterne neden under og tryk på næste...<br><img src=\"../../images/pil.gif\">&nbsp;Alle felter <b>skal</b> udfyldes</span><br></td></tr></table>

<table width=\"100%\" CELLPADDING=\"4\" CELLSPACING=\"0\" border=\"0\"><tr><td>
<FORM method=\"post\" action=\"opret_bruger_ny.asp?side=lager_2\">
<TABLE BORDER=\"0\" CELLSPACING=\"0\" CELLPADDING=\"0\" width=\"440\">
<TR>
    <TD class=\"gron\" colspan=\"2\" width=\"440\"><span class=\"overskrift\">Login oplysninger</span></TD></tr>

<TR><TD valign=\"top\" width=\"100\" style=\'border-bottom: 1px solid #3C9751\'><span class=\"normal\"><IMG SRC=\"../../images/pil.gif\" BORDER=\"0\">&nbsp;<b>Brugernavn:</b></span></TD>
<TD width=\"340\" style=\'border-bottom: 1px solid #3C9751\'><input type=\"text\" name=\"brugernavn\" size=\"50\" style=\"font-family: Arial; font-size: 10 pt; border-style: double; border-color: #224492\"></td></tr>

<TR><TD valign=\"top\" width=\"100\" style=\'border-bottom: 1px solid #3C9751\'><span class=\"normal\"><IMG SRC=\"../../images/pil.gif\" BORDER=\"0\">&nbsp;<b>Password:</b></span></TD>
<TD width=\"340\" style=\'border-bottom: 1px solid #3C9751\'><input type=\"password\" name=\"password\" size=\"50\" style=\"font-family: Arial; font-size: 10 pt; border-style: double; border-color: #224492\"></td></tr>

<TR><TD valign=\"top\" width=\"100\" style=\'border-bottom: 1px solid #3C9751\'><span class=\"normal\"><IMG SRC=\"../../images/pil.gif\" BORDER=\"0\">&nbsp;<b>Password -igen:</b></span></TD>
<TD width=\"340\" style=\'border-bottom: 1px solid #3C9751\'><input type=\"password\" name=\"password2\" size=\"50\" style=\"font-family: Arial; font-size: 10 pt; border-style: double; border-color: #224492\"></td></tr>

<tr><td colspan=\"2\" style=\'border-bottom: 1px solid #3C9751\'><input type=\"submit\" value=\"Næste >>\" style=\"font-family: Arial; font-size: 10 pt; font-weight: bold; background-color: #FFFFFF; border-style: double; border-color: #224492\"></td></tr>
</table><input type=\"hidden\" name=\"dato\" value=\"test\"></FORM>
</td></tr></table>
<div align=\"center\"><span class=\"laes\">Troldhøj Division - Interne sider<br>Det Danske Spejderkorps</span></div>
<% end if

if side = \"lager_2\" then
If Request(\"brugernavn\") <> \"\" AND Request(\"password\") <> \"\" AND Request(\"password2\") <> \"\" Then
tilfoj_2 = TRUE
Else
tilfoj_2 = FALSE
response.write(\"<br><br><center><b><span class=\'fejl\'>Alle felterne skal udfyldes</span></b><br><br><a class=\'normal\' href=\'java script:history.back(1)\'>Tilbage</a></center>\")
End IF
If tilfoj_2 = True then
password1 = request.form(\"password\")
password2 = request.form(\"password2\")
if password1 <> password2 then
response.write(\"<center><b><BR><BR><span class=\'fejl\'>Du har ikke angivet 2 ens password</span></b><br><a class=\'normal\' href=\'java script:history.back(1)\'>Tilbage</a></center>\")
else
brugernavn = Request(\"brugernavn\")
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"../../inc/db/spejder.mdb\")
strSQL = (\"Select * From brugere Where brugernavn = \'\" & brugernavn & \"\'\")
set rs = Conn.execute(strSQL) 
If RS.EOF Then
Session(\"brugernavn\") = Request.form(\"brugernavn\")
Session(\"password\") = Request.form(\"password\")
response.redirect(\"opret_bruger_ny.asp?side=step_3\")
DB.Execute (SQL)
Else
response.write(\"<br><br><center><b><span class=\'fejl\'>Brugernavnet er optaget</span></b><br><br><a class=\'normal\' href=\'java script:history.back(1)\'>Tilbage</a></center>\")
End If
RS.Close
Set RS = Nothing
end if
end if
end if

if side = \"step_3\" then %>
<table width=\"100%\" CELLPADDING=\"4\" CELLSPACING=\"0\" border=\"0\">
<tr width=\"75%\"><td class=\"gron\"><span class=\"hvid\">1 - 2 - <b>3 - Gruppe oplysninger</b> - 4</span></td>
<td width=\"25%\" class=\"gron\"><DIV STYLE=\"text-align:right\"><a class=\"hvid\" href=\"java script:luk()\">Luk vinduet</a></DIV></td></tr>
<tr><td><span class=\"normal\"><img src=\"../../images/pil.gif\">&nbsp;Udfyld felterne neden under og tryk på næste...<br><img src=\"../../images/pil.gif\">&nbsp;Alle felter <b>skal</b> udfyldes</span><br></td></tr></table>

<table width=\"100%\" CELLPADDING=\"4\" CELLSPACING=\"0\" border=\"0\"><tr><td>
<FORM method=\"post\" action=\"opret_bruger_ny.asp?side=lager_3\">
<TABLE BORDER=\"0\" CELLSPACING=\"0\" CELLPADDING=\"0\" width=\"440\">
<TR>
    <TD class=\"gron\" colspan=\"2\" width=\"440\"><span class=\"overskrift\">Gruppe oplysninger</span></TD></tr>

<TR><TD valign=\"top\" width=\"100\" style=\'border-bottom: 1px solid #3C9751\'><span class=\"normal\"><IMG SRC=\"../../images/pil.gif\" BORDER=\"0\">&nbsp;<b>Gruppe:</b></span></TD>
<TD width=\"340\" style=\'border-bottom: 1px solid #3C9751\'><SELECT NAME=\"gruppe\">
<option value=\"4\">Hadsten Gruppe</option>
<option value=\"6\">Hinnerup Gruppe</option>
<option value=\"5\">Hammeluglerne</option>
<option value=\"3\">Galten Tamburkorps</option>
<option value=\"2\">1. Galten Gruppe</option>
<option value=\"8\">3. Silkeborg Gruppe</option>
<option value=\"7\">1. Silkeborg Gruppe</option>
<option value=\"1\">Sejs Gruppe</option>
<option value=\"10\">Divi. Ledelsen</option>
</SELECT></td></tr>
<tr><td colspan=\"2\" style=\'border-bottom: 1px solid #3C9751\'><input type=\"submit\" value=\"Næste >>\" style=\"font-family: Arial; font-size: 10 pt; font-weight: bold; background-color: #FFFFFF; border-style: double; border-color: #224492\"></td></tr>
</table><input type=\"hidden\" name=\"dato\" value=\"test\"></FORM>
</td></tr></table>
<div align=\"center\"><span class=\"laes\">Troldhøj Division - Interne sider<br>Det Danske Spejderkorps</span></div>
<% end if

if side = \"lager_3\" then
If Request(\"gruppe\") <> \"\" Then
tilfoj_3 = TRUE
Else
tilfoj_3 = FALSE
response.write(\"<br><br><center><b><span class=\'fejl\'>Alle felterne skal udfyldes</span></b><br><br><a class=\'normal\' href=\'java script:history.back(1)\'>Tilbage</a></center>\")
End IF
If tilfoj_3 = True then
Session(\"gruppe\") = Request.form(\"gruppe\")
response.redirect(\"opret_bruger_ny.asp?side=step_4\")
end if
end if
if side = \"step_4\" then %>
<table width=\"100%\" CELLPADDING=\"4\" CELLSPACING=\"0\" border=\"0\">
<tr width=\"75%\"><td class=\"gron\"><span class=\"hvid\">1 - 2 - 3 - <b>4 - Oprettelse fuldført</b></span></td>
<td width=\"25%\" class=\"gron\"><DIV STYLE=\"text-align:right\"><a class=\"hvid\" href=\"java script:luk()\">Luk vinduet</a></DIV></td></tr>
<tr><td colspan=\"2\"><span class=\"normal\">Du er nu oprettet på de \"Interne sider\" Dog skal du godkendes af den ansvarlige fra din gruppe, eller af webmaster, før du kan bruge din adgang...<br>Du vil modtage en e-mail med alle dine oplysninger når du er blevet godkendt</span><p>
<span class=\"normal\"><b>Du er blevet oprettet med følgende oplysninger:</b><br>

<% navn = Session(\"navn\")
adresse = Session(\"adresse\")
postnr = Session(\"postnr\")
by = Session(\"by\")
email = Session(\"email\")
brugernavn = Session(\"brugernavn\")
password = Session(\"password\")
gruppe = Session(\"gruppe\")

response.write(\"Navn: \" & navn & \"<br>Adresse: \" & adresse & \"<br>Postnr: \" & postnr & \"<br>By: \" & by & \"<br>Email: \" & email & \"<br>Brugernavn: \" & brugernavn & \"<br>Password: \" & password & \"</span></td></tr></table>\")

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Set rs = Server.CreateObject(\"ADODB.Recordset\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"../../inc/db/spejder.mdb\")
strSQL = \"SELECT * FROM brugere\"
rs.Open strSQl, Conn, 1, 3
rs.AddNew
rs(\"navn\")        = Session(\"navn\")
rs(\"adresse\")    = Session(\"adresse\")
rs(\"postnr\")    = Session(\"postnr\")
rs(\"oprettet\")    = Session(\"oprettet\")
rs(\"by\")        = Session(\"by\")
rs(\"email\")        = Session(\"email\")
rs(\"brugernavn\")        = Session(\"brugernavn\")
rs(\"password\")        = Session(\"password\")
rs(\"kommentar\")        = Session(\"gruppe\")
rs.Update
conn.Close
Set conn = nothing
Set strSQL = nothing




end if %>



</BODY>
</HTML>

nejnej.. det er hele din side... (altså HELE din hjemmeside ;-)  )

Der er ret mange mb og det er heller ikke alt jeg er lige meget for at give fra mig, men er der noget helt bestemt jeg kan hjælpe med, gør jeg gerne det...
Jeg gør heller ikke noget bestemt ved det... ASP er noget forholdsvis nyt for mig, så meget af det kan sikkert laves 100 gange smartere og nemmere end det jeg gør...