Hvorfor denne fejl?

jeg tror det er i discoteket.asp der mangler noget, hvordan ser den ud?

dsjk

jeg er ikke sikker

du mangler at skrive et <% i discoteket.. at skrive det lige efter din include fil kan måske hjælpe på det, men bedst at skrive det i diskoteket.asp

discoteket.asp ser ud som følger, og er include't fra mange steder af uden problemer....

<p>
<h4>Status</h4>
<%

If Session("login") = "JA" Then
  Response.Write "<img style='border:0;' src='images/groen_cirkel.jpg'>" & " Logget på som " & Session("loginid") & "." & "<br><br><img src='/oddsrus/images/key.jpg'><a href='logoff.asp'>  Log af</a>"

Else

  Response.Write "<img style='border:0;' src='images/roed_cirkel.jpg'>" & " Ikke logget på. " & "<br><br><img src='/oddsrus/images/key.jpg'><a href='access.asp'>  Log på</a>"

End If
%>
<br>
<h4>Discoteket</h4>
<a href="discoteket_start.asp">Overblik</a>
<br>
<a href="medie_insert_formular.asp?id=1">Tilføj medie</a>
<br>
<a href="disc_oversigt.asp?u=<%Response.Write Session("loginid")%>&m=1&f=kunstner&s=asc">CD's</a>
<br>
<a href="disc_oversigt.asp?u=<%Response.Write Session("loginid")%>&m=2&f=titel&s=asc">DVD's</a>
<br>
<a href="disc_oversigt.asp?u=<%Response.Write Session("loginid")%>&m=3&f=titel&s=asc">DivX</a>
<br>
<a href="disc_oversigt.asp?u=<%Response.Write Session("loginid")%>&m=4&f=titel&s=asc">S-VCD</a>
<br>
<a href="disc_oversigt.asp?u=<%Response.Write Session("loginid")%>&m=5&f=titel&s=asc">VHS</a>
<br><br>
<h4>Links</h4>
<a target="_blank" href="http://www.gracenote.com">Gracenote</a>
<br>
<a target="_blank" href="http://www.g.dk">Gaffa</a>
<br><br>
<h4>Diverse</h4>
<a href="start.asp">Odds'R'Us</a>
<br><br><br>
<div align="center">
<a href="http://jigsaw.w3.org/css-validator/">
  <img style="border:0;width:88px;height:31px"
      src="images/vcss.bmp"
      alt="Valid CSS!" align="middle" width="88" height="31">
</a>
</div>
</p>

interessant.. jeg får ingen fejl.

kan det ske at din side er blevet cachet?  prøv at omdøbe siden til medie_insert2.asp og kør den?

du kan føje flg. til starten af din side for at sørge for, den ikke bliver cachet:

Response.ExpiresAbsolute = #1/1/1980#
Response.AddHeader "pragma", "no-cache"

kimiwan...

Jeg har både prøvet at omdøbe og at tilføje de 2 linjer kode. Uden held!

Men hvilken version af koden kører du med nu - det oprindelige eller hvad?

hehe.. ja.. jeg har kun det, du postede *s*

Jeg mener...du skrev, at jeg skulle tilføje et "<%" - har du selv gjort dette?

Nu er det anden gang jeg har checket din kode og som de andre også er kommet frem til så er der den fejlfri.

Det tyder på at den kode du viser os ikke er den kode du virkelig bruger.
Du skal nok kontrollere include-linierne:

<!--#include virtual='/oddsrus/discoteket.asp'-->

Du anvender ordet virtual - prøv med file i stedet for.

<!--#include file='/oddsrus/discoteket.asp'-->

Så vil du får inkluderet den discoteket.asp der findes i undermappen oddsrus set i forhold til den mappe som koden er i.

Det understøttes jo også af at du ikke fik den fejl jeg fik første gang jeg testede koden. (end if manglede)
Den fejl vil du nemlig først få efter at include-filerne er syntax-checket og da jeg bruget "tomme" include filer fik jeg jo fejlen med det samme.

Hvis ikke ovenstående hjælper så vil jeg anbefale at du anvender "tomme" includefiler under fejlfinding og includere dem en af gangen eller gør dem mindre og putte flere og flere linier på. Alene for fejlfindingens skyld.

Nu har jeg helt fjernet include fra koden, alligevel får jeg fejl!!!

Fejltype:
Active Server Pages, ASP 0116 (0x80004005)
Scriptblokken mangler programkoden, der afslutter scriptet (%>).
/oddsrus/medie_insert.asp, line 1

Koden som den ser ud nu:

<%

' 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

Response.Write "<html>"
Response.Write "<head>"
Response.Write "<title></title>"
Response.Write "<link rel='stylesheet' href='layout/2.css' type='text/css' media='screen'>"
Response.Write "<link rel='stylesheet' href='layout/2p.css' type='text/css' media='print'>"
Response.Write "</head>"
Response.Write "<body>"

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("/oddsrus/baser/medie.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.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.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.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.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.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.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.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.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.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>

Kom nu! I må da kunne hjælpe en stakkel som mig!

Jeg har

1) Fjernet ALT hvad der hedder include
2) Sikret mig, at jeg ikke kører cache.
3) Sikret mig, at jeg kører med den rigtige version af source

- og får alligevel fejlen! Vil en af Jer venligst prøve ovenstående source af igen (den lige ovenover denne kommentar).

Læg mærke til at fejlen optræder i linie 1 nu og ikke i linie 23. ?
Har du noget i mod at sende denne fil til mig: /oddsrus/medie_insert.asp
ccc@post11.tele.dk eller ligge den på nettet og lave et link - så jeg kan se det med mine egne øjne.

Jeg har netop selv fundet fejlen!

Det viste sig, at den fil der lå på serveren af en eller årsag var ukomplet, dvs. at den nåede lige præcis til...

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_

- og så var der ellers ikke mere!?!

Det har jeg sgu alligevel aldrig set før! Det er på trods af, at jeg har uploadet filen utallige gange.

Nu er jeg imidlertid i den situation, at det er min storebror, der lægger diskplads til, så da jeg i dag er ude ved ham, arbejder jeg direkte på serveren - og nu virker det uden problemer.

Kan det være det FTP-program jeg kører med derhjemme, der er råddent?

Anyway...point går som følger...

50 til coltau for alle løsningsforslagene fra dag 1.
10 til kimiwan.