<% Response.Write "HJÆLP!" %>

må vi se koden... så vi kan fejlsøge?

Aber natürlich...det bliver i eftermiddag, da jeg i mellemtiden er landet på arbejde nu.

Denne fejl, Scriptblokken mangler programkoden, der afslutter scriptet (%>) opstår netop når du mangler en %> til sidst.

<%
ASP-linier
%>
Html-linier
<%
ASP-linier

Der mangler en %> til sidst og ovenstående fejl kommer.

Det er nemlig rigtigt..... Hvis man laver en ASP så ser det sådan ud:


<% Response.Write("Its alive......!") %>              <--- ASP
<a href="www.clansite.dk</a>" target="_blank">http://www.clansite.dk">www.clansite.dk</a>  <--- HTML

ASP  = <%  &  %>
HTML = <    &    >

Det er jeg så udmærket godt klar over.

Lad mig sige det på en anden måde...jeg har lavet en søgning og konstateret, at der kun er 1 (én) <% (i starten af min fil) og 1 (én) %> (i slutningen af min fil).

Det er derfor, at jeg er ved at få grå hår!

OK...hér kommer koden...

<%
' Hvis brugeren ikke er logget rigtigt på
' sendes han/hun direkte til formularen
If Session("login") <> "JA" Then
  Response.Redirect ("loginfejl.asp")
Elseif Session("discoteket") <> "JA" Then
  Response.Redirect ("loginfejl_cd.asp")
End If
%>

<html>
<head>
<title></title>
<link rel='stylesheet' href='layout/2.css' type='text/css' media='screen'>
<link rel='stylesheet' href='layout/2p.css' type='text/css' media='print'>
</head>
<body>
<div id='menu'>

<!--#include virtual='/oddsrus/discoteket.asp'-->
</div>
<%
medie_type = Request.form("medie_type")

if medie_type = 1 then
medie_navn = "CD"
elseif medie_type = 2 then
medie_navn = "DVD"
elseif medie_type = 3 then
medie_navn = "DivX"
elseif medie_type = 4 then
medie_navn = "SVCD"
elseif medie_type = 5 then
medie_navn = "VHS"
end if


tabel = medie_navn & "_" & Session("loginid")

if Request.form("vurdering") = "" then
vurdering = 0
else vurdering = Request.form("vurdering")
end if

Select Case medie_type

Case 1

Set Conn = Server.CreateObject("ADODB.Connection")
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.Mappath("/XXX/YYY/ZZZ.mdb")&";"
Conn.Open strConnect

strSQL = "Select Count(*) as findesmedie from " & tabel & " WHERE kunstner = '" & Request.Form("kunstner") & "'" & " AND titel = '" & Request.form("titel") & "'"
Set rs = Conn.Execute(strSQL)

if (rs("findesmedie") <> "0") then
Response.Write "Det indtastede findes allerede i databasen.<br><br>Tjek lige en ekstra gang igen!"

else

if Request.form("kopi") <> "J" then
kopi = "N"
else kopi = "J"
end if

if Request.form("mp3_konv") <> "J" then
mp3_konv = "N"
else mp3_konv = "J"
end if

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/oddsrus/baser/medie-db.mdb")

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From " & tabel
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
 
rs.AddNew
rs("kunstner") = Request.form("kunstner")
rs("titel") = Request.form("titel")
rs("kategori") = Request.form("kategori")
rs("aar") = Request.form("aar")
rs("kopi") = kopi
rs("mp3_konv") = mp3_konv
rs("laengde") = Request.form("laengde")
rs("url") = Request.form("url")
rs("vurdering") = vurdering
rs("kommentar") = Request.form("kommentar")
rs("dato_insert") = Date()
rs("dato_update") = Date()
rs.Update

rs.Close
Set rs = Nothing

Conn.Close
set Conn = Nothing

link = "disc_oversigt.asp?u=" & Session("loginid") & "&m=1&f=kunstner&s=asc"
response.redirect (link)

end if

Case 2

Set Conn = Server.CreateObject("ADODB.Connection")
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.Mappath("/oddsrus/baser/medie-db.mdb")&";"
Conn.Open strConnect

strSQL = "Select Count(*) as findesmedie from " & tabel & " WHERE titel = '" & Request.form("titel") & "'"
Set rs = Conn.Execute(strSQL)

if (rs("findesmedie") <> "0") then
Response.Write "Det indtastede findes allerede i databasen.<br><br>Tjek lige en ekstra gang igen!"

else

if Request.form("dolby5-1") <> "J" then
dolby51 = "N"
else dolby51 = "J"
end if

if Request.form("dts") <> "J" then
dts = "N"
else dts = "J"
end if

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/oddsrus/baser/medie-db.mdb")

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From " & tabel
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
 
rs.AddNew
rs("titel") = Request.form("titel")
rs("kategori") = Request.form("kategori")
rs("aar") = Request.form("aar")
rs("sprog") = Request.form("sprog")
rs("undertekster") = Request.form("tekster")
rs("dolby51") = dolby51
rs("dts") = dts
rs("format") = Request.form("format")
rs("laengde") = Request.form("laengde")
rs("url") = Request.form("url")
rs("vurdering") = vurdering
rs("kommentar") = Request.form("kommentar")
rs("dato_insert") = Date()
rs("dato_update") = Date()
rs.Update

rs.Close
Set rs = Nothing

Conn.Close
set Conn = Nothing

link = "disc_oversigt.asp?u=" & Session("loginid") & "&m=2&f=titel&s=asc"
response.redirect (link)

end if

Case 3

Set Conn = Server.CreateObject("ADODB.Connection")
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.Mappath("/oddsrus/baser/medie-db.mdb")&";"
Conn.Open strConnect

strSQL = "Select Count(*) as findesmedie from " & tabel & " WHERE titel = '" & Request.form("titel") & "'"
Set rs = Conn.Execute(strSQL)

if (rs("findesmedie") <> "0") then
Response.Write "Det indtastede findes allerede i databasen.<br><br>Tjek lige en ekstra gang igen!"

else

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/oddsrus/baser/medie-db.mdb")

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From " & tabel
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
 
rs.AddNew
rs("titel") = Request.form("titel")
rs("kategori") = Request.form("kategori")
rs("aar") = Request.form("aar")
rs("sprog") = Request.form("sprog")
rs("undertekster") = Request.form("tekster")
rs("format") = Request.form("format")
rs("laengde") = Request.form("laengde")
rs("discs") = Request.form("discs")
rs("url") = Request.form("url")
rs("vurdering") = vurdering
rs("video_enc") = Request.form("video_enc")
rs("codec") = Request.form("codec")
rs("audio_enc") = Request.form("audio_enc")
rs("audio_format") = Request.form("audio_format")
rs("kommentar") = Request.form("kommentar")
rs("dato_insert") = Date()
rs("dato_update") = Date()
rs.Update

rs.Close
Set rs = Nothing

Conn.Close
set Conn = Nothing

link = "disc_oversigt.asp?u=" & Session("loginid") & "&m=3&f=titel&s=asc"
response.redirect (link)

end if

Case 4

Set Conn = Server.CreateObject("ADODB.Connection")
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.Mappath("/oddsrus/baser/medie-db.mdb")&";"
Conn.Open strConnect

strSQL = "Select Count(*) as findesmedie from " & tabel & " WHERE titel = '" & Request.form("titel") & "'"
Set rs = Conn.Execute(strSQL)

if (rs("findesmedie") <> "0") then
Response.Write "Det indtastede findes allerede i databasen.<br><br>Tjek lige en ekstra gang igen!"

else

if Request.form("svcd") <> "J" then
svcd = "N"
else svcd = "J"
end if

if Request.form("mp3_konv") <> "J" then
mp3_konv = "N"
else mp3_konv = "J"
end if

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/oddsrus/baser/medie-db.mdb")

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From " & tabel
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
 
rs.AddNew
rs("titel") = Request.form("titel")
rs("kategori") = Request.form("kategori")
rs("aar") = Request.form("aar")
rs("sprog") = Request.form("sprog")
rs("undertekster") = Request.form("tekster")
rs("svcd") = svcd
rs("format") = Request.form("format")
rs("laengde") = Request.form("laengde")
rs("discs") = Request.form("discs")
rs("url") = Request.form("url")
rs("vurdering") = vurdering
rs("kommentar") = Request.form("kommentar")
rs("dato_insert") = Date()
rs("dato_update") = Date()
rs.Update

rs.Close
Set rs = Nothing

Conn.Close
set Conn = Nothing

link = "disc_oversigt.asp?u=" & Session("loginid") & "&m=4&f=titel&s=asc"
response.redirect (link)

end if

Case  5

Set Conn = Server.CreateObject("ADODB.Connection")
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.Mappath("/oddsrus/baser/medie-db.mdb")&";"
Conn.Open strConnect

strSQL = "Select Count(*) as findesmedie from " & tabel & " WHERE titel = '" & Request.form("titel") & "'"
Set rs = Conn.Execute(strSQL)

if (rs("findesmedie") <> "0") then
Response.Write "Det indtastede findes allerede i databasen.<br><br>Tjek lige en ekstra gang igen!"

else

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/oddsrus/baser/medie-db.mdb")

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From " & tabel
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
 
rs.AddNew
rs("titel") = Request.form("titel")
rs("kategori") = Request.form("kategori")
rs("aar") = Request.form("aar")
rs("sprog") = Request.form("sprog")
rs("undertekster") = Request.form("tekster")
rs("laengde") = Request.form("laengde")
rs("url") = Request.form("url")
rs("vurdering") = vurdering
rs("kommentar") = Request.form("kommentar")
rs("dato_insert") = Date()
rs("dato_update") = Date()
rs.Update

rs.Close
Set rs = Nothing

Conn.Close
set Conn = Nothing

link = "disc_oversigt.asp?u=" & Session("loginid") & "&m=5&f=titel&s=asc"
response.redirect (link)

Case Else

Response.Write "Ukendt medie!"

End Select
%>

<hr>
<!--#include virtual="/oddsrus/address.htm"-->
</body>
</html>

Her i de sidste linier blander du en if-sætning ind i case-sætningen:

if (rs("findesmedie") <> "0") then ' DENNE IF MANGLER END IF INDEN CASE ELSE
  Response.Write "Det indtastede findes allerede i databasen.<br><br>Tjek lige en ekstra gang igen!"

else

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/oddsrus/baser/medie-db.mdb")

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From " & tabel
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

rs.AddNew
rs("titel") = Request.form("titel")
rs("kategori") = Request.form("kategori")
rs("aar") = Request.form("aar")
rs("sprog") = Request.form("sprog")
rs("undertekster") = Request.form("tekster")
rs("laengde") = Request.form("laengde")
rs("url") = Request.form("url")
rs("vurdering") = vurdering
rs("kommentar") = Request.form("kommentar")
rs("dato_insert") = Date()
rs("dato_update") = Date()
rs.Update

rs.Close
Set rs = Nothing

Conn.Close
set Conn = Nothing

link = "disc_oversigt.asp?u=" & Session("loginid") & "&m=5&f=titel&s=asc"
response.redirect (link)

Case Else

Response.Write "Ukendt medie!"

End Select
%>

<hr>
</body>
</html>

Hårber du kan se det.

Ja, det kan jeg da egentlig godt se.

Jeg har tilføjet en End if umiddelbart før End Select, men jeg får sg* stadig samme fejl!?!

Den skal også flyttes op før Case Else da det er den linie if-sætningen konflikter med.

Det er den faktisk også (fik formuleret mig forkert), men med samme fejl til følge!

Men hvorfor skulle man også få fejlen...

Scriptblokken mangler programkoden, der afslutter scriptet (%>).

Hvis det er en End If, der enten mangler eller er placeret forkert?!

Jeg har forhøjet point, da jeg er desperat!

De sidste linier skal se således ud. ?

link = "disc_oversigt.asp?u=" & Session("loginid") & "&m=5&f=titel&s=asc"
response.redirect (link)
end if ' DET ER HER DEN MANGLER

Case Else

Det er også sådan, at det ser ud. Koden kommer hér igen....

<%
' Hvis brugeren ikke er logget rigtigt på
' sendes han/hun direkte til formularen

If Session("login") <> "JA" Then
Response.Redirect ("loginfejl.asp")
Elseif Session("discoteket") <> "JA" Then
Response.Redirect ("loginfejl_cd.asp")
End If
%>

<html>
<head>
<title></title>
<link rel='stylesheet' href='layout/2.css' type='text/css' media='screen'>
<link rel='stylesheet' href='layout/2p.css' type='text/css' media='print'>
</head>
<body>
<div id='menu'>
<!--#include virtual='/oddsrus/discoteket.asp'-->
</div>

<%

medie_type = Request.form("medie_type")

if medie_type = 1 then
medie_navn = "CD"
elseif medie_type = 2 then
medie_navn = "DVD"
elseif medie_type = 3 then
medie_navn = "DivX"
elseif medie_type = 4 then
medie_navn = "SVCD"
elseif medie_type = 5 then
medie_navn = "VHS"
end if


tabel = medie_navn & "_" & Session("loginid")

if Request.form("vurdering") = "" then
vurdering = 0
else vurdering = Request.form("vurdering")
end if

Select Case medie_type

Case 1

Set Conn = Server.CreateObject("ADODB.Connection")
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.Mappath("/XXX/YYY/ZZZ.mdb")&";"
Conn.Open strConnect

strSQL = "Select Count(*) as findesmedie from " & tabel & " WHERE kunstner = '" & Request.Form("kunstner") & "'" & " AND titel = '" & Request.form("titel") & "'"
Set rs = Conn.Execute(strSQL)

if (rs("findesmedie") <> "0") then
Response.Write "Det indtastede findes allerede i databasen.<br><br>Tjek lige en ekstra gang igen!"

else

if Request.form("kopi") <> "J" then
kopi = "N"
else kopi = "J"
end if

if Request.form("mp3_konv") <> "J" then
mp3_konv = "N"
else mp3_konv = "J"
end if

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/oddsrus/baser/medie-db.mdb")

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From " & tabel
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
 
rs.AddNew
rs("kunstner") = Request.form("kunstner")
rs("titel") = Request.form("titel")
rs("kategori") = Request.form("kategori")
rs("aar") = Request.form("aar")
rs("kopi") = kopi
rs("mp3_konv") = mp3_konv
rs("laengde") = Request.form("laengde")
rs("url") = Request.form("url")
rs("vurdering") = vurdering
rs("kommentar") = Request.form("kommentar")
rs("dato_insert") = Date()
rs("dato_update") = Date()
rs.Update

rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing

link = "disc_oversigt.asp?u=" & Session("loginid") & "&m=1&f=kunstner&s=asc"
response.redirect (link)

end if

Case 2

Set Conn = Server.CreateObject("ADODB.Connection")
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.Mappath("/oddsrus/baser/medie-db.mdb")&";"
Conn.Open strConnect

strSQL = "Select Count(*) as findesmedie from " & tabel & " WHERE titel = '" & Request.form("titel") & "'"
Set rs = Conn.Execute(strSQL)

if (rs("findesmedie") <> "0") then
Response.Write "Det indtastede findes allerede i databasen.<br><br>Tjek lige en ekstra gang igen!"

else

if Request.form("dolby5-1") <> "J" then
dolby51 = "N"
else dolby51 = "J"
end if

if Request.form("dts") <> "J" then
dts = "N"
else dts = "J"
end if

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/oddsrus/baser/medie-db.mdb")

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From " & tabel
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
 
rs.AddNew
rs("titel") = Request.form("titel")
rs("kategori") = Request.form("kategori")
rs("aar") = Request.form("aar")
rs("sprog") = Request.form("sprog")
rs("undertekster") = Request.form("tekster")
rs("dolby51") = dolby51
rs("dts") = dts
rs("format") = Request.form("format")
rs("laengde") = Request.form("laengde")
rs("url") = Request.form("url")
rs("vurdering") = vurdering
rs("kommentar") = Request.form("kommentar")
rs("dato_insert") = Date()
rs("dato_update") = Date()
rs.Update

rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing

link = "disc_oversigt.asp?u=" & Session("loginid") & "&m=2&f=titel&s=asc"
response.redirect (link)

end if

Case 3

Set Conn = Server.CreateObject("ADODB.Connection")
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.Mappath("/oddsrus/baser/medie-db.mdb")&";"
Conn.Open strConnect

strSQL = "Select Count(*) as findesmedie from " & tabel & " WHERE titel = '" & Request.form("titel") & "'"
Set rs = Conn.Execute(strSQL)

if (rs("findesmedie") <> "0") then
Response.Write "Det indtastede findes allerede i databasen.<br><br>Tjek lige en ekstra gang igen!"

else

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/oddsrus/baser/medie-db.mdb")

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From " & tabel
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
 
rs.AddNew
rs("titel") = Request.form("titel")
rs("kategori") = Request.form("kategori")
rs("aar") = Request.form("aar")
rs("sprog") = Request.form("sprog")
rs("undertekster") = Request.form("tekster")
rs("format") = Request.form("format")
rs("str_b") = Request_form("str_b")
rs("str_h") = Request_form("str_h")
rs("laengde") = Request.form("laengde")
rs("discs") = Request.form("discs")
rs("url") = Request.form("url")
rs("vurdering") = vurdering
rs("video_enc") = Request.form("video_enc")
rs("codec") = Request.form("codec")
rs("audio_enc") = Request.form("audio_enc")
rs("audio_format") = Request.form("audio_format")
rs("kvalitet") = Request.form("kvalitet")
rs("kommentar") = Request.form("kommentar")
rs("dato_insert") = Date()
rs("dato_update") = Date()
rs.Update

rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing

link = "disc_oversigt.asp?u=" & Session("loginid") & "&m=3&f=titel&s=asc"
response.redirect (link)

end if

Case 4

Set Conn = Server.CreateObject("ADODB.Connection")
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.Mappath("/oddsrus/baser/medie-db.mdb")&";"
Conn.Open strConnect

strSQL = "Select Count(*) as findesmedie from " & tabel & " WHERE titel = '" & Request.form("titel") & "'"
Set rs = Conn.Execute(strSQL)

if (rs("findesmedie") <> "0") then
Response.Write "Det indtastede findes allerede i databasen.<br><br>Tjek lige en ekstra gang igen!"

else

if Request.form("svcd") <> "J" then
svcd = "N"
else svcd = "J"
end if

if Request.form("mp3_konv") <> "J" then
mp3_konv = "N"
else mp3_konv = "J"
end if

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/oddsrus/baser/medie-db.mdb")

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From " & tabel
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
 
rs.AddNew
rs("titel") = Request.form("titel")
rs("kategori") = Request.form("kategori")
rs("aar") = Request.form("aar")
rs("sprog") = Request.form("sprog")
rs("undertekster") = Request.form("tekster")
rs("svcd") = svcd
rs("format") = Request.form("format")
rs("laengde") = Request.form("laengde")
rs("discs") = Request.form("discs")
rs("url") = Request.form("url")
rs("vurdering") = vurdering
rs("kvalitet") = Request.form("kvalitet")
rs("kommentar") = Request.form("kommentar")
rs("dato_insert") = Date()
rs("dato_update") = Date()
rs.Update

rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing

link = "disc_oversigt.asp?u=" & Session("loginid") & "&m=4&f=titel&s=asc"
response.redirect (link)

end if

Case 5

Set Conn = Server.CreateObject("ADODB.Connection")
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.Mappath("/oddsrus/baser/medie-db.mdb")&";"
Conn.Open strConnect

strSQL = "Select Count(*) as findesmedie from " & tabel & " WHERE titel = '" & Request.form("titel") & "'"
Set rs = Conn.Execute(strSQL)

if (rs("findesmedie") <> "0") then
Response.Write "Det indtastede findes allerede i databasen.<br><br>Tjek lige en ekstra gang igen!"

else

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/oddsrus/baser/medie-db.mdb")

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From " & tabel
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
 
rs.AddNew
rs("titel") = Request.form("titel")
rs("kategori") = Request.form("kategori")
rs("aar") = Request.form("aar")
rs("sprog") = Request.form("sprog")
rs("undertekster") = Request.form("tekster")
rs("laengde") = Request.form("laengde")
rs("url") = Request.form("url")
rs("vurdering") = vurdering
rs("kommentar") = Request.form("kommentar")
rs("dato_insert") = Date()
rs("dato_update") = Date()
rs.Update

rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing

link = "disc_oversigt.asp?u=" & Session("loginid") & "&m=5&f=titel&s=asc"
response.redirect (link)

end if

Case Else

Response.Write "Ukendt medie!"

End Select

%>

<hr>
<!--#include virtual="/oddsrus/address.htm"-->
</body>
</html>

Lukker spg.