---
title: "Skriv inte ut"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13891-skriv-inte-ut"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ampy"
published: "2002-01-20T09:53:00.000Z"
updated: "2002-01-20T11:07:00.000Z"
replies: 8
views: 305
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/13891-skriv-inte-ut"
---

# Skriv inte ut

## #1 — ampy, 2002-01-20T09:53Z

Jag vill skriva ut en kod som finns i en databas men jag har kommit på att allt som finns mellan \<% och %\> inte skrivs ut, varför?

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

## #2 — icaaq, 2002-01-20T09:59Z

```
Response.Write Server.HTMLEncode(objRS("kod"))
```

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

## #3 — ampy, 2002-01-20T10:05Z

Vfart ska jag lägga in den koden i denna kod:

```
<%
randomize
set connect = server.createobject("adodb.connection")
connect.Open "Driver={Microsoft Access Driver (*.mdb)}; dbq=" & Server.MapPath("db/statistik.mdb") 
set rs = connect.execute("Select * From slumpa ")
if rs.eof then
'tji
else
rows = rs.getrows()
post = clng(rnd()*ubound(rows,2))
for i = 1 to ubound(rows,1)

response.write rows(i,post)
next
end if

%>
```

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

## #4 — @nders, 2002-01-20T10:30Z

Jag är inte säker på att jag förstår problemet. Lagrar du \<% och %\> i databasen?

\- - - 

För att kombinera icaaqs kod med din:

```
<%
randomize
set connect = server.createobject("adodb.connection")
connect.Open "Driver={Microsoft Access Driver (*.mdb)}; dbq=" & Server.MapPath("db/statistik.mdb") 
set rs = connect.execute("Select * From slumpa ")
if rs.eof then
'tji
else
rows = rs.getrows()
post = clng(rnd()*ubound(rows,2))
for i = 1 to ubound(rows,1)
response.write Server.HTMLEncode(rows(i,post))
next
end if

%>
```

Mvh,

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

## #5 — ampy, 2002-01-20T10:36Z

Nu skriv allt mellan \<% och %\> ut direkt.

Så här ser koden ut som jag har i databasen:

```
<%
Resonse.Write "<b>Senaste registreringen i  <a href=""icq-lista/icq.asp"">ICQ-listan</a>:</b><br><br>"

 

Set Conn = Server.CreateObject("ADODB.Connection")
Set DBLink = Server.CreateObject("ADODB.Recordset")

Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("icq.mdb") & ";pwd=;"

SQL = "SELECT TOP 1 * From icq ORDER BY datum DESC"
DBLink.Open SQL, Conn, 1, 2

Do While Not DBLink.EOF

Response.Write "<b>Namn: </b><FONT face=Verdana color=#006600 size=1><b><i>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" & DBLink("namn") & "</i></b></font>"
Response.Write " <br><b>Nick-namn: </b><FONT face=Verdana color=#006600 size=1><b><i>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" & DBLink("nick") & "</i></b></font>"
Response.Write " <br><b>Ålder: </b><FONT face=Verdana color=#006600 size=1><b><i>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" & DBLink("alder") & "</i></b></font>"
Response.Write "<br><b>Datum: </b> <FONT face=Verdana color=#006600 size=1><i><b> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" & DBLink("datum") & "</font><b></i>"

DBLink.MoveNext

Loop

DBLink.Close
Conn.Close

Set DBLink = Nothing
Set Conn = Nothing   %>
```

Jag vill att den ska göra som det står i aspkoden, inte att den bara ska skriva ut koden.

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

## #6 — @nders, 2002-01-20T10:44Z

Du skrev ju att det var det du ville?

\- - -

Du skall inte lagra \<% och %\> i databasen. 

För att exekvera ett scriptblock kan du använda:

```
ExecuteGlobal(rows(i,post))
```

Men, som sagt, då måste du ta bort \<% och %\> ur scriptet i databasen.

Mvh,

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

## #7 — ampy, 2002-01-20T10:55Z

Så här ser koden ut i databasen nu:

```

Response.Write "<b>Senaste registreringen i  <a href=""icq-lista/icq.asp"">ICQ-listan</a>:</b><br><br>"

 

Set Conn = Server.CreateObject("ADODB.Connection")
Set DBLink = Server.CreateObject("ADODB.Recordset")

Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/icq.mdb") & ";pwd=;"

SQL = "SELECT TOP 1 * From icq ORDER BY datum DESC"
DBLink.Open SQL, Conn, 1, 2

Do While Not DBLink.EOF

Response.Write "<b>Namn: </b><FONT face=Verdana color=#006600 size=1><b><i>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" & DBLink("namn") & "</i></b></font>"
Response.Write " <br><b>Nick-namn: </b><FONT face=Verdana color=#006600 size=1><b><i>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" & DBLink("nick") & "</i></b></font>"
Response.Write " <br><b>Ålder: </b><FONT face=Verdana color=#006600 size=1><b><i>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" & DBLink("alder") & "</i></b></font>"
Response.Write "<br><b>Datum: </b> <FONT face=Verdana color=#006600 size=1><i><b> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" & DBLink("datum") & "</font><b></i>"

DBLink.MoveNext

Loop

DBLink.Close
Conn.Close

Set DBLink = Nothing
Set Conn = Nothing
```

Då får jag detta felmeddelande:

```
Feltyp:
Körningsfel i Microsoft VBScript (0x800A000D)
Inkompatibla typer: 'BLink'
/ampy/main.asp
```

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

## #8 — @nders, 2002-01-20T11:01Z

Jag kan inte se att du har BLink i denna kod. Använder du BLink någon annanstans i koden?

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

## #9 — ampy, 2002-01-20T11:07Z

Nu när jag läste ditt inlägg så testade jag bara att uppdatera sidan och då funkade allt, mysko ;)

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

---

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