Problem att skriva ut tabell

5 svar · 272 visningar · startad av plelkes 28 mars 2003

plelkesMedlem sedan mars 2002823 inlägg

Frågan28 mars 2003 09:55#1

Eftersom jag inte får PWS att fungera, så måste jag testköra min alster på Brinkster ....
Har gjort lite ändring från sida med tabeller - som fungerar till
sida utan tabeller

<html>
<head>
<title>g&amp;auml;stbok</title>
<meta http-equiv=Content-Type content=text/html; charset=iso-8859-1>
</head>

<p align=center><font size=7><b><i><font color=#FFCC33>V&auml;lkommen till 
  skolans g&auml;stbok</font></i></b></font></p>
 
<%  dim minCon 'Connection
     dim rsGbok 'recordsetten f&ouml;r nya inl&auml;gg
     dim strSQL

Set minCon = Server.CreateObject("ADODB.Connection")
set rsGbok = Server.CreateObject("ADODB.Recordset")

minCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\plelkes\db\guests.mdb")
strSQL =" SELECT * FROM guestbook ORDER by ID DESC"
rsGbok.Open strSQL, minCon, 3, 3
Do While Not rsGbok.EOF
Response.Write "Jag heter: " & rsGbok("Namn")&
Response.Write "Skrivet den " & rsGbok("Datum") & "<BR>"
Response.Write "Min E-postadress är: " & 
_rsGbok("Epost") & "<BR>"
Response.Write "Mitt inlägg: " "<BR>"
Response.Write  & rsGbok("Message") &
Response.Write  "<P><HR><P>"

  rsGbok.MoveNext
  Loop
  rsGbok.Close
  Set rsGbok = Nothing
  minCon.Close
  Set minCon = Nothing
  %>
</body>
</html>

Snälla hjälp mig hitta felet!

cyprysMedlem sedan dec. 20003 563 inlägg

28 mars 2003 09:56#2

Felmeddelande??
/r aaaa läste tydligare nu

Server.MapPath("\plelkes\db\guests.mdb")
till
Server.MapPath("db/guests.mdb")
??

<%@ Language=VBScript %>
<html>
<head>
<title>gästbok</title>
<meta http-equiv=Content-Type content=text/html; charset=iso-8859-1>
</head>

<p align=center><font size=7><b><i><font color=#FFCC33>Välkommen till 
  skolans gästbok</font></i></b></font></p>
 
<%
dim Conn'Connection
dim RS 'recordsetten för nya inlägg
dim strSQL

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\plelkes\db\guests.mdb")

strSQL =" SELECT * FROM guestbook ORDER by ID DESC"
Set RS = Conn.Execute(strSQL)

Do until RS.EOF

Response.Write "Jag heter: " & RS("Namn") & "<br />" & _
"Skrivet den " & RS("Datum") & "<br />" & _
"Min E-postadress är: " & RS("Epost") & "<br />" & _
"Mitt inlägg: <br />" & _
RS("Message") & "<P><HR><P>"

RS.MoveNext
Loop

Set RS = Nothing
Conn.Close
Set Conn = Nothing
%>
</body>
</html>

plelkesMedlem sedan mars 2002823 inlägg

28 mars 2003 10:00#3

Server.MapPath("\plelkes\db\guests.mdb")
till
Server.MapPath("db/guests.mdb")

Tror inte på detta, har exakt somma "string" i filen som fungerar

plelkesMedlem sedan mars 2002823 inlägg

28 mars 2003 10:02#4

kod som fungerar

<html>
<head>
<title>g&amp;auml;stbok</title>
<meta http-equiv=Content-Type content=text/html; charset=iso-8859-1>
</head>

<p align=center><font size=7><b><i><font color=#FFCC33>V&auml;lkommen till 
  skolans g&auml;stbok</font></i></b></font></p>
 
<%  dim minCon 'Connection
     dim rsGbok 'recordsetten f&ouml;r nya inl&auml;gg
     dim strSQL

Set minCon = Server.CreateObject("ADODB.Connection")
set rsGbok = Server.CreateObject("ADODB.Recordset")

minCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\plelkes\db\guests.mdb")
strSQL =" SELECT * FROM guestbook ORDER by ID DESC"
rsGbok.Open strSQL, minCon, 3, 3

Response.Write "<table width=782 border=2 cellspacing=5 cellpadding=5 >"
Do While Not rsGbok.EOF
 Response.Write "<tr>"
    Response.Write "<td bgcolor=#003399 width=181>"
	Response.Write "<b><u><font size=6 color=#FFFF00>Namn:</font></u></b>"
	Response.Write "</td>"
    Response.Write "<td width=413>"
	Response.Write rsGbok("Namn") 
	Response.Write "</td>"
    Response.Write "<td width=128>"
	Response.Write rsGbok("Datum")
	Response.Write "</td>"
  Response.Write "</tr>"
  Response.Write "<tr>"
    Response.Write "<td bgcolor=#003399 width=181>"
	Response.Write "<b><u><font size=6 color=#FFFF00>E-post:</font></u></b>"
	Response.Write "</td>"
    Response.Write "<td colspan=2>"
	Response.Write rsGbok("Epost")
	Response.Write "</td>"
  Response.Write "</tr>"
  Response.Write "<tr>"
    Response.Write "<td bgcolor=#003399 width=181>"
	Response.Write "<font color=#FFFF00 size=6><b><u>Meddelande:</u></b></font>"
	Response.Write "</td>"
    Response.Write "<td colspan=2>"
	Response.Write rsGbok("Message")
	Response.Write "</td>"
  Response.Write "</tr>"
  rsGbok.MoveNext
  Loop
  Response.Write "</table>"
  rsGbok.Close
  Set rsGbok = Nothing
  Set minCon = Nothing
  %>
</body>
</html>

solbulleMedlem sedan mars 20015 287 inlägg

28 mars 2003 14:22#5

Har du testat cyprys kod? Fungerar inte den?

Annars är det din & -tecken som ställer till det, precis som felmeddelandet pekar på.
Ta bort dom som står "ensamma" sist efter strängarna, samt de som står först om du innan har en response.write.

&-tecknet binder ihop två strängar, variabler eller något. Därför måste du ha något på båda sidor om det.

r/ Såg senare att det var lite flera trådar om samma sak så mitt svar var väl en smula sent. :(

SebbeMedlem sedan jan. 20032 285 inlägg

28 mars 2003 14:36#6

Koden till solbulles förklaring :)

<html>
<head>
<title>g&auml;stbok</title>
<meta http-equiv=Content-Type content=text/html; charset=iso-8859-1>
</head>

<p align=center><font size=7><b><i><font color=#FFCC33>Välkommen till 
  skolans gästbok</font></i></b></font></p>
 
<%  dim minCon 'Connection
     dim rsGbok 'recordsetten för nya inlägg
     dim strSQL

Set minCon = Server.CreateObject("ADODB.Connection")
set rsGbok = Server.CreateObject("ADODB.Recordset")

minCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\plelkes\db\guests.mdb")
strSQL =" SELECT * FROM guestbook ORDER by ID DESC"
rsGbok.Open strSQL, minCon, 3, 3
Do While Not rsGbok.EOF
Response.Write "Jag heter: " & rsGbok("Namn")
Response.Write "Skrivet den " & rsGbok("Datum") & "<BR>"
Response.Write "Min E-postadress är: " & rsGbok("Epost") & "<BR>"
Response.Write "Mitt inlägg:<BR>" & rsGbok("Message")
Response.Write  "<P><HR><P>"

  rsGbok.MoveNext
  Loop
  rsGbok.Close
  Set rsGbok = Nothing
  minCon.Close
  Set minCon = Nothing
  %>
</body>
</html>