Der var lige en fejl mere, nu skulle der ikke være nogen fejl:
<%
set myConn = Server.CreateObject(\"ADOBD.Connection\")
myConn.open = \"Driver{Microsoft Access Driver (*.mdb)};DBQ=\" & Server.Path(\"artikler\")
if request(\"mode) = \"login\" then
strSQL = \"Select * From Brugere Where Brugernavn = \'\" & request(\"brugernavn\") & \"\' AND Kodeord = \'\" & request(\"kodeord\") & \"\'\"
set rs = myConn.execute(strSQL)
if rs.eof then
response.write \"fejl !\"
else
session(\"loged\") = \"true\"
response.redirect \"index.asp?mode=skriv\"
end if
else
if request(\"mode) = \"opret\" then
if not session(\"loged\") <> \"\" then
response.redirect \"index.asp?mode=visover\"
else
strInsert = \"Insert Into artikler (Overskrift,Tekst,Af,Dato) Values (\'\" & request(\"overskrift\") & \"\',\'\" & request(\"tekst\") & \"\',\'\" & request(\"af\") & \"\',#\" & now() & \"#\"
set rs = myConn.execute(strInsert)
response.redirect \"index.asp?mode=vis\"
end if
else
if request(\"mode\") = \"vis\" then
strSelect = \"Select * From Artikler Where Id = \" & request(\"id\")
set rs = myConn.execute(strSelect)
response.write rs(\"overskrift\") & vbCrLf & vbCrLf
response.write rs(\"tekst\") & vbCrLf & vbCrLf
response.write \"Af: \" & rs(\"af\") & \"\"
else
if request(\"mode\") = \"visover\" then
strTop = Select Top 15 From tabelnavn\"
set rs = myConn.execute(strTop)
do while not rs.eof
response.write \"<a href=\'index.asp?mode=vis&id=\" & rs(\"id\") & \">\" & rs(\"overskrift\") & \"</a>\" & vbCrLf
rs.movenext
loop
end if
end if
end if
end if
set myConn = nothing
set rs = nothing
%>
