Jeg har et problem med 2 asp sider som arbejder sammen. Den
første side viser en overskrift fra en meddelelse, samt nogle få
ord fra selve meddelelsen. Den næste side viser så overskriften
samt hele meddelelsen. Men her opstår et problem jeg ikke kan
finde fejlen på. Når jeg vil klikke mig videre til næste side kan
den ikke vises. Men fjerner jeg den første linie med rs("Titel")
fra start.asp, virker det fint, og alt vises korrekt, pånær at
overskriften selvfølgelig ikke vises på den første side. Hvorfor
får jeg ikke lov til at vise titlen på start.asp????
Database oplysninger:
Databasens filnavn er forum.mdb
Databasen hedder overskrifter
Tabellen Forum indeholde navnet Overskrift
Tabellen Titel indeholder overskriften
Tabellen Tekst indeholder selve meddelelsen
Første side (start.asp):
<%
' Overskrifter
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/vti_log/forum.mdb")
Conn.Open DSN
strSQL = "Select * From overskrifter where Forum = 'Overskrift'"
Set rs = Conn.Execute(strSQL)
Do
Response.write "<div id='indeni'>"
Response.write "<legend><span style='font: bold 12 verdana;
color: maroon'>"
Response.write rs("Titel")
Response.write ": </span></legend>"
Response.write (left(Replace(rs("Tekst"),Chr(13),"<br>"),35))
Response.write "... "
Response.write "<form action='forum.asp' method='post'
style='display:inline'>"
Response.write "<input type='hidden' name='Titel' value='"
Response.write rs("Titel")
Response.write "' />"
Response.write "["
Response.write "<input type='image' src='image/laes.gif' alt='Se
tråd' />"
Response.write "]"
Response.write "</form>"
Response.write "</div>"
rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
%>
Anden side (forum.asp):
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/vti_log/forum.mdb")
Conn.Open DSN
strSQL = "Select * From overskrifter where Titel = '" &
Request.form("Titel") & "'"
Set rs = Conn.Execute(strSQL)
Do
Response.write "<div id='overskrifttext'>"
Response.write rs("Titel")
Response.write "</div>"
Response.write "<div id='midtertextfelt' style='text-align:
justify'>"
Response.write "<div id='indeni'>"
Response.write Replace(rs("Tekst"),Chr(13),"<br>")
Response.write "</div>"
Response.write "</div>"
rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
%>
--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials