---
title: "Skrivet inte ut.."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/5696-skrivet-inte-ut"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "cgi"
published: "2000-05-18T16:33:00.000Z"
updated: "2000-05-20T10:45:00.000Z"
replies: 10
views: 166
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/5696-skrivet-inte-ut"
---

# Skrivet inte ut..

## #1 — cgi, 2000-05-18T16:33Z

När jag använder mig av denna kod:

\<%@ LANGUAGE="VBScript" %\>
\<!--#include file="ADOVBS.inc"--\>
\<!--#include file="IASUtil.asp"--\>
\<%
	id = Request("id") 

	Set Databas = Server.CreateObject("ADODB.Connection") 'Skapar kopplings objektet
        MdbFilePath = Server.MapPath("radannons.mdb") 'Specifierar sökvägen till databasen
        Databas.Open "Driver={Microsoft Access Driver (\*.mdb)}; DBQ=" & MdbFilePath & ";" 'Öppnar databasen

	SQLStmt = "SELECT \*, Format$(\[datum\],'yyyy/mm/dd') AS formdatum "
	SQLStmt = SQLStmt & "FROM Annonser, Kategorier "
	SQLStmt = SQLStmt & "WHERE Annonser.Kategori_id=Kategorier.Kat_Id "
	SQLStmt = SQLStmt & "AND Annonser.Id=" & id & " "

%\>
\<html\>

\<head\>

\<title\>-Läs annons-\</title\>
\</head\>

\<body background="images/bakbla.gif" bgcolor="#FFFFFF"\>

  \<%
	CurrentRecord = 0

	Do While CheckRS(RS)%\>
     
\<center\>
\<font size="2"\>
Annonsen skriven av \<a href="mailto:\<%=rs("Epost")%\>"\>\<%=("Namn")%\>\</a\> den \<%=rs("Datum")%\>.\<br\>\<br\>

\<b\>Beskrivning:\</b\>\<br\>
\<%=rs("Beskrivning")%\>\<br\>\<br\>

\<b\>Tel:\</b\> \<%=rs("Telefon")%\>

\<%		RS.MoveNext
		CurrentRecord = CurrentRecord + 1
	Loop
%\>   

    

    \</form\>
    \<p align="center"\>&nbsp;\<br\>
    \</p\>
    \<p align="center"\>&nbsp;\</p\>
    \<p align="center"\>&nbsp;\</p\>
    \<p align="center"\>&nbsp;\</td\>
  \</tr\>
\</table\>
\</body\>
\</html\>

Så skriver den inte ut hela html koden utan bara denna del:
\<html\>

\<head\>

\<title\>-Läs annons-\</title\>
\</head\>

\<body background="images/bakbla.gif" bgcolor="#FFFFFF"\>

     \</form\>
    \<p align="center"\>&nbsp;\<br\>
    \</p\>
    \<p align="center"\>&nbsp;\</p\>
    \<p align="center"\>&nbsp;\</p\>
    \<p align="center"\>&nbsp;\</td\>
  \</tr\>
\</table\>
\</body\>
\</html\>

Varför.??

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

## #2 — Vide, 2000-05-18T16:44Z

För det första så har du inte exekverat din SQL-fråga. Lägg till 'Set RS = databas.Execute(SQLStmt)', efter din SQL-sträng. 

Sedan ser Loopen konstig ut den också, byt 'Do While CheckRS(RS)' mot 'Do while NOT RS.EOF

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

## #3 — cgi, 2000-05-18T17:18Z

Nej du, den vill fortfarande inte skriva ut html koden.

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

## #4 — Vide, 2000-05-19T07:10Z

... och du får inget felmeddelande?

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

## #5 — cgi, 2000-05-19T11:47Z

Nej jag får inget felmeddelande.

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

## #6 — Vide, 2000-05-19T13:01Z

Okej... skulle du kunna visa koden som den ser ut nu...

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

## #7 — cgi, 2000-05-19T16:21Z

Ok här kommer koden:

\<%@ LANGUAGE="VBScript" %\>
\<!--#include file="ADOVBS.inc"--\>
\<!--#include file="IASUtil.asp"--\>
\<%
	id = Request("id") 

	Set Databas = Server.CreateObject("ADODB.Connection") 'Skapar kopplings objektet
        MdbFilePath = Server.MapPath("radannons.mdb") 'Specifierar sökvägen till databasen
        Databas.Open "Driver={Microsoft Access Driver (\*.mdb)}; DBQ=" & MdbFilePath & ";" 'Öppnar databasen

	SQLStmt = "SELECT \*, Format$(\[datum\],'yyyy/mm/dd') AS formdatum "
	SQLStmt = SQLStmt & "FROM Annonser, Kategorier "
	SQLStmt = SQLStmt & "WHERE Annonser.Kategori_id=Kategorier.Kat_Id "
	SQLStmt = SQLStmt & "AND Annonser.Id=" & id & " "
        'Set RS = databas.Execute(SQLStmt)',

%\>

\<html\>

\<head\>

\<title\>-Läs annons-\</title\>
\</head\>

\<body background="images/bakbla.gif" bgcolor="#FFFFFF"\>

\<%
	CurrentRecord = 0

	'Do while NOT RS.EOF

%\> 
  
     
\<center\>
\<font size="2"\>
Annonsen skriven av \<a href="mailto:\<%=rs("Epost")%\>"\>\<%=("Namn")%\>\</a\> den \<%=rs("Datum")%\>.\<br\>\<br\>

\<b\>Beskrivning:\</b\>\<br\>
\<%=rs("Beskrivning")%\>\<br\>\<br\>

\<b\>Tel:\</b\> \<%=rs("Telefon")%\>

\<%		RS.MoveNext
		CurrentRecord = CurrentRecord + 1
	Loop
%\>    

    \</form\>
    \<p align="center"\>&nbsp;\<br\>
    \</p\>
    \<p align="center"\>&nbsp;\</p\>
    \<p align="center"\>&nbsp;\</p\>
    \<p align="center"\>&nbsp;\</td\>
  \</tr\>
\</table\>
\</body\>
\</html\>

Du vet ju förut när jag hade problem
med att den inte lagrade i databasen,
och du sa att jag skulle lägga till
denna rad  databas.Execute(SQLStmt)
i Matain.asp det funkade ett tag sedan slutade den att lagra helt plöttsligt,
helt mysko, :q  du vet inte vad det kan vara för fel.

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

## #8 — AG, 2000-05-19T20:31Z

Skall det verkligen vara ett ' i koden

```
<%
CurrentRecord = 0
'Do while NOT RS.EOF
%>
Testa och byt ut till
<%
CurrentRecord = 0
Do while NOT RS.EOF
%>
```

Testa det kan kanske fungera.

Andreas

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

## #9 — cgi, 2000-05-20T09:31Z

Nej funkar fortfarande inte.

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

## #10 — AG, 2000-05-20T10:35Z

Testa också att byta ut

```
'Set RS = databas.Execute(SQLStmt)',
till:
Set RS = databas.Execute(SQLStmt)
```

Detta är allt jag ser verkar vara fel, använd tillsammans med det jag skrev i föregående svar.

Andreas

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

## #11 — cgi, 2000-05-20T10:45Z

Det det där funkar ju kanon. ;)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/5696-skrivet-inte-ut
