---
title: "varför hämtar den inte från databas"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/12895-varför-hämtar-den-inte-från-databas/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Gimbo"
published: "2001-11-26T11:36:00.000Z"
updated: "2001-11-28T18:28:00.000Z"
replies: 25
views: 324
page: 2
pages: 2
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/12895-varför-hämtar-den-inte-från-databas"
---

# varför hämtar den inte från databas

_Sida 2 av 2._

## #21 — LarsG, 2001-11-28T18:02Z

@nders glömde ett %\> så om man sätter ihop allt så borde det bli.

```
Dim handelse
handelse = recset("Handelse")
response.write left(handelse,64)
if len(handelse) > 64 then
strHandelse = replace(handelse, vbCrLf, "\n")
strHandelse = replace(strHandelse,"'","\'") [b]%>[/b]
<a href="" onclick="alert('<%=strHandelse%>');">Klicka här för mer info!</a>
<%
end if
```

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

## #22 — @nders, 2001-11-28T18:02Z

Tja ingenting kanske?

Det brukar gå bra så där helt utan, liksom. annars kan du prova # eller så.

Red: Jo, visst glömde jag ett %\> men det skyller ifrån mig på någon annan. ;)

Mvh,

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

## #23 — Gimbo, 2001-11-28T18:13Z

Men det fungerar inte, ooohhhh jag blir dum!!!, det blir inte ens en länk på texten: så här ser det ut:

```
  <%
 
Dim iAntalInbokningar
iAntalInbokningar = 0

Dim iRaderLoop, iKolumnerLoop
iRader = 5
iKolumner = 7
For iRaderLoop = 1 to iRader
Response.Write "<tr>"
For iKolumnerLoop = 1 to iKolumner
     If aDagar((iRaderLoop-1)*7 + iKolumnerLoop) > 0 Then
       Response.Write "<td valign=top bgcolor=#f6faf6 align=right width=""14%"" & height=" & FormatPercent(1/iRader,0) & ">"
       Response.Write "<table cellspacing=0 cellpadding=0 border=0 " & "width=""100%"">"

       Response.Write "<tr><td align=right valign=top><b>"
       Response.Write "<font face=verdana size=""1""><b>"
       Response.Write aDagar((iRaderLoop-1)*7 + iKolumnerLoop)
       Response.Write "</b></font>"
       Response.Write "</b></td></tr>"

   If Not Recset.EOF Then
     If Recset("Dag") = aDagar((iRaderLoop-1)*7 + iKolumnerLoop) Then
       Response.Write "<tr  height=""100%""><td valign=top align=left>"
       Response.Write "<font size=1 face=verdana>"

Dim handelse
handelse = recset("Handelse")
response.write left(handelse,64)
if len(handelse) > 64 then
strHandelse = replace(handelse, vbCrLf, "\n")
strHandelse = replace(strHandelse,"'","\'") %>
<a href="" onclick="alert('<%=strHandelse%>');">Klicka här för mer info!</a> %>
<%
end if

       Recset.MoveNext

       iAntalInbokningar  = iAntalInbokningar + 1

       Response.Write "</font>"        
       Response.Write "</td></tr>"

     End If
    End If

    Response.Write "</table>"
    Response.Write "</td>"
    Else
        Response.Write "<td  bgcolor=#ffffff>&nbsp;</td>"
    End If
  Next

  Response.Write "</tr>"
Next

Recset.Close
Set Recset = Nothing

Conn.Close
Set Conn = Nothing

%>
```

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

## #24 — @nders, 2001-11-28T18:16Z

Är texten mer än 64 tecken då?

Jag tycker spontant att det ser rätt ut.

Mvh,

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

## #25 — LarsG, 2001-11-28T18:21Z

Du har ett %\> för mycket här

```
<a href="" onclick="alert('<%=strHandelse%>');">Klicka här för mer info!</a> %>
```

det skall vara 

```
<a href="" onclick="alert('<%=strHandelse%>');">Klicka här för mer info!</a>
```

(men det spelar ingen roll i detta fall)

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

## #26 — Gimbo, 2001-11-28T18:28Z

det e ju sak samma, det här e verkligen skumt

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/12895-varför-hämtar-den-inte-från-databas/page2  
Föregående sida: https://www.webforum.nu/amne/asp/12895-varför-hämtar-den-inte-från-databas.md