---
title: "Problem att skriva ut tabell"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/72439-problem-att-skriva-ut-tabell"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "plelkes"
published: "2003-03-28T09:55:20.000Z"
updated: "2003-03-28T14:36:31.000Z"
replies: 5
views: 283
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/72439-problem-att-skriva-ut-tabell"
---

# Problem att skriva ut tabell

## #1 — plelkes, 2003-03-28T09:55Z

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](http://www20.brinkster.com/plelkes/gboken.asp)  \- som fungerar till 
[sida utan tabeller](http://www20.brinkster.com/plelkes/gastboken.asp) 

```
<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!

Permalänk: https://www.webforum.nu/p/72439

## #2 — cyprys, 2003-03-28T09:56Z

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>
```

Permalänk: https://www.webforum.nu/p/992616

## #3 — plelkes, 2003-03-28T10:00Z

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

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

Permalänk: https://www.webforum.nu/p/992619

## #4 — plelkes, 2003-03-28T10:02Z

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>
```

Permalänk: https://www.webforum.nu/p/992621

## #5 — solbulle, 2003-03-28T14:22Z

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. :(

Permalänk: https://www.webforum.nu/p/992851

## #6 — Sebbe, 2003-03-28T14:36Z

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>
```

Permalänk: https://www.webforum.nu/p/992863

---

Tråden på webben: https://www.webforum.nu/amne/asp/72439-problem-att-skriva-ut-tabell