---
title: "\"?\" i databas, funkar inte det?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/50728-i-databas-funkar-inte-det"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "anders4u"
published: "2002-08-19T16:07:47.000Z"
updated: "2002-08-19T20:24:26.000Z"
replies: 19
views: 478
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/50728-i-databas-funkar-inte-det"
---

# "?" i databas, funkar inte det?

## #1 — anders4u, 2002-08-19T16:07Z

Hej!

jag har länar i en databas som läggs ut på en sida.
men så fort det är ett frågetecken med i länken så funkar det inte.

varför?

vad kan jag göra.

jag jobbar med "frontpage-asp" och access 2002-databas.
tacksam om hjälp.
       
            / Anders

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

## #2 — @nders, 2002-08-19T16:11Z

Du får visa kod och felmeddelande, och gärna beskriva mer ingående vad problemet är.

Mvh,

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

## #3 — anders4u, 2002-08-19T16:15Z

Det kanske inte är frågetecknet som är fel men det blir massa % tecken i länken.
i vissa fall fungerar det bra men i vissa fall inte.

om man går in på Linktree.net klickar på bildgallerier och sedan på länken "Webshots Gallery" så ser du hur det ser ut.
:-)

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

## #4 — anders4u, 2002-08-19T16:17Z

nöje måste man klicka på först innan man hittar bildgallerier

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

## #5 — @nders, 2002-08-19T16:19Z

Gör du något konstigt när du sparar länkar i databasen, Server.HTMLEncode(), och sedan gör det igen när du visar upp länkarna?

Om du tittar direkt i Access, ser url:en rätt ut?

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

## #6 — anders4u, 2002-08-19T16:29Z

databasen ser ut så här.

id, url, description"det som visas när man vilar musen över länken", kategori"för att skilja länkarna åt" och text"det som man ska klicka på så man kommer vidare".

så i gällande årdning står det så här i dabasen:

3, www.picsearch.se, description
En bra sökmotor för bilder!, bilder, text
Picsearch sök bilder.

vet inte om det hjälper så mycket.
jag kan bara lite asp och när frontpage skriver sin egna asp så blir det inte lättare.

Vänlig hällsning, Anders.

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

## #7 — @nders, 2002-08-19T16:32Z

Hur ser koden ut?
Ser allt rätt ut när du öppnar tabellen i databasen?

Det verkar som om url:en html-kodas dubbelt innan utskrift.

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

## #8 — anders4u, 2002-08-19T16:34Z

nu märkte jag visserligen att länken inte fungerar men problemet med ? kvarstår ändå.

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

## #9 — anders4u, 2002-08-19T16:37Z

auktioner.asp ser ut så här:

\<html\>

\<head\>
\<meta http-equiv="Content-Type" content="text/html; charset=windows-1252"\>
\<meta name="GENERATOR" content="Microsoft FrontPage 4.0"\>
\<meta name="ProgId" content="FrontPage.Editor.Document"\>
\<title\>Linktree.net:: Auktioner\</title\>
\<script language="JavaScript"\>
\<!--
function change(html){
  description.innerHTML=html
}
//--\>
\</script\>
\<base target="\_blank"\>
\<link rel="stylesheet" type="text/css" href="../stil/stil.css"\>
\</head\>

\<body bgcolor="#0D1A00" text="#FFFFFF" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF" topmargin="40"\>

\<p\>\<a href="../index.htm" target="\_top"\>startsidan\</a\>\</p\>
\<table border="0" width="100%"\>
  \<tr\>
    \<td width="33%"\>
      \<table\>
        \<tbody\>
          \<!--webbot bot="DatabaseRegionStart" startspan
          s-columnnames="ID,url,description,sokord,kategori,text"
          s-columntypes="3,202,202,202,202,202" s-dataconnection="Databas1"
          b-tableformat="TRUE" b-menuformat="FALSE" s-menuchoice="text" s-menuvalue="text"
          b-tableborder="FALSE" b-tableexpand="FALSE" b-tableheader="FALSE"
          b-listlabels="FALSE" b-listseparator="FALSE" i-ListFormat="0"
          b-makeform="FALSE" s-recordsource="lankar" s-displaycolumns="text"
          s-criteria="\[kategori\] EQ \[auktion\] +" s-order="\[ID\] -"
          s-sql="SELECT \* FROM lankar WHERE (kategori =  'auktion') ORDER BY ID DESC"
          b-procedure="FALSE" clientside SuggestedExt="asp" s-DefaultFields
          s-NoRecordsFound="Inga poster returnerades." i-MaxRecords="256"
          i-GroupSize="0" BOTID="0" u-dblib="../\_fpclass/fpdblib.inc"
          u-dbrgn1="../\_fpclass/fpdbrgn1.inc"
          u-dbrgn2="../\_fpclass/fpdbrgn2.inc" tag="TBODY"
          local_preview="&lt;tr&gt;&lt;td colspan=64 bgcolor=&quot;#FFFF00&quot; align=&quot;left&quot; width=&quot;100%&quot;&gt;&lt;font color=&quot;#000000&quot;&gt;Det går inte att förhandsgranska databasresultatsområden om inte sidan hämtats från en webbserver med en webbläsare. Följande tabellrad upprepas en gång för varje post som returneras av frågan.&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;"
          preview="&lt;tr&gt;&lt;td colspan=64 bgcolor=&quot;#FFFF00&quot; align=&quot;left&quot; width=&quot;100%&quot;&gt;&lt;font color=&quot;#000000&quot;&gt;Det här är början av ett databasresultatsområde.&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;" b-WasTableFormat="TRUE" --\>\<!--#include file="../\_fpclass/fpdblib.inc"--\>
\<%
fp_sQry="SELECT \* FROM lankar WHERE (kategori =  'auktion') ORDER BY ID DESC"
fp_sDefault=""
fp_sNoRecords="\<tr\>\<td colspan=1 align=left width=""100%""\>Inga poster returnerades.\</td\>\</tr\>"
fp_sDataConn="Databas1"
fp_iMaxRecords=256
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=True
fp_fMenuFormat=False
fp_sMenuChoice="text"
fp_sMenuValue="text"
fp_iDisplayCols=1
fp_fCustomQuery=False
BOTID=0
fp_iRegion=BOTID
%\>
\<!--#include file="../\_fpclass/fpdbrgn1.inc"--\>
\<!--webbot bot="DatabaseRegionStart" i-CheckSum="11410" endspan --\>
          \<tr\>
            \<td\>\<a href="http://\<%=FP_FieldURL(fp_rs,"url")%\>" onmouseout="javascript:change('')" onmouseover="javascript:change('\<%=FP_FieldVAL(fp_rs,"description")%\>')"\>\<!--webbot
              bot="DatabaseResultColumn" startspan
              s-columnnames="ID,url,description,sokord,kategori,text"
              s-column="text" b-tableformat="TRUE" b-hasHTML="FALSE" clientside
              local_preview="&lt;font size=&quot;-1&quot;&gt;&amp;lt;&amp;lt;&lt;/font&gt;text&lt;font size=&quot;-1&quot;&gt;&amp;gt;&amp;gt;&lt;/font&gt;"
              preview="&lt;font size=&quot;-1&quot;&gt;&amp;lt;&amp;lt;&lt;/font&gt;text&lt;font size=&quot;-1&quot;&gt;&amp;gt;&amp;gt;&lt;/font&gt;" --\>\<%=FP_FieldVal(fp_rs,"text")%\>\<!--webbot
              bot="DatabaseResultColumn" i-CheckSum="6885" endspan --\>
              \</a\>\</td\>
          \</tr\>
          \<!--webbot bot="DatabaseRegionEnd" startspan b-tableformat="TRUE"
          b-menuformat="FALSE" u-dbrgn2="../\_fpclass/fpdbrgn2.inc"
          i-groupsize="0" clientside tag="TBODY"
          local_preview="&lt;tr&gt;&lt;td colspan=64 bgcolor=&quot;#FFFF00&quot; align=&quot;left&quot; width=&quot;100%&quot;&gt;&lt;font color=&quot;#000000&quot;&gt;Det här är slutet av ett databasresultatsområde.&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;"
          preview="&lt;tr&gt;&lt;td colspan=64 bgcolor=&quot;#FFFF00&quot; align=&quot;left&quot; width=&quot;100%&quot;&gt;&lt;font color=&quot;#000000&quot;&gt;Det här är slutet av ett databasresultatsområde.&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;" --\>\<!--#include file="../\_fpclass/fpdbrgn2.inc"--\>
\<!--webbot bot="DatabaseRegionEnd" i-CheckSum="56926" endspan --\>
        \</tbody\>
      \</table\>
      \<p\>\<nobr\>\</nobr\>\</p\>
      &nbsp;\</td\>
    \<td width="33%"\>\</td\>
    \<td width="34%"\>\<div id="description"  style="text-align: center; font-size: 12pt; font-weight: bold; font-family: Garamond"\>
  \<p align="center"\>Välkommen hit!\</div\>
\</td\>
  \</tr\>
\</table\>

\</body\>

\</html\>

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

## #10 — @nders, 2002-08-19T18:36Z

Hur ser funktionen FP_FieldURL() ut?

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

## #11 — anders4u, 2002-08-19T19:06Z

syntaxen typ eller?
ska det kanske inte vara FP_FieldURL utan FP_FieldVAL i stället?
jag vet inte riktigt hur syntaxen ska vara.

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

## #12 — @nders, 2002-08-19T19:07Z

Koden till funktionen. Den ligger förmodligen i någon includefil.

Red: Tråden flyttas till ASP-forumet också.

Mvh,

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

## #13 — anders4u, 2002-08-19T19:13Z

global.asa

det är väl includeringsfilen kan man säga
 den ser ut så här:

\<SCRIPT LANGUAGE=VBScript RUNAT=Server\>
Sub Application_OnStart
	'==FrontPage Generated - startspan==
	Dim FrontPage_UrlVars(1)
	'--Project Data Connection
		Application("Databas1_ConnectionString") = "DRIVER={Microsoft Access Driver (\*.mdb)};DBQ=URL=fpdb/lankar.mdb"
		FrontPage_UrlVars(0) = "Databas1_ConnectionString"
		Application("Databas1_ConnectionTimeout") = 15
		Application("Databas1_CommandTimeout") = 30
		Application("Databas1_CursorLocation") = 3
		Application("Databas1_RuntimeUserName") = ""
		Application("Databas1_RuntimePassword") = ""
	'--
	Application("FrontPage_UrlVars") = FrontPage_UrlVars
	'==FrontPage Generated - endspan==
End Sub
Sub Session_OnStart
	FrontPage_StartSession '==FrontPage Generated==
End Sub
Sub FrontPage_StartSession
	On Error Resume Next
	if Len(Application("FrontPage_VRoot")) \> 0 then Exit Sub
	' discover the VRoot for the current page;
	' walk back up VPath until we find global.asa
	Vroot = Request.ServerVariables("PATH_INFO")
	strG1 = "global.asa"
	strG2 = "Global.asa"
	iCount = 0
	do while Len(Vroot) \> 1
		idx = InStrRev(Vroot, "/")
		if idx \> 0 then
			Vroot = Left(Vroot,idx)
		else
			' error; assume root web
			Vroot = "/"
		end if
		if FrontPage_FileExists(Server.MapPath(Vroot & strG1)) then exit do
		if FrontPage_FileExists(Server.MapPath(Vroot & strG2)) then exit do
		if Right(Vroot,1) = "/" then Vroot = Left(Vroot,Len(Vroot)-1)
		iCount = iCount + 1
		if iCount \> 100 then
			' error; assume root web
			Vroot = "/"
			exit do
		end if
	loop
	' map all URL= attributes in \_ConnectionString variables
	Application.Lock
	if Len(Application("FrontPage_VRoot")) = 0 then
		Application("FrontPage_VRoot") = Vroot
		UrlVarArray = Application("FrontPage_UrlVars")
		for i = 0 to UBound(UrlVarArray)
			if Len(UrlVarArray(i)) \> 0 then FrontPage_MapUrl(UrlVarArray(i))
		next
	end if
	Application.Unlock
End Sub
Sub FrontPage_MapUrl(AppVarName)
	' convert URL attribute in conn string to absolute file location
	strVal = Application(AppVarName)
	strKey = "URL="
	idxStart = InStr(strVal, strKey)
	If idxStart = 0 Then Exit Sub
	strBefore = Left(strVal, idxStart - 1)
	idxStart = idxStart + Len(strKey)
	idxEnd = InStr(idxStart, strVal, ";")
	If idxEnd = 0 Then
		strAfter = ""
		strURL = Mid(strVal, idxStart)
	Else
		strAfter = ";" & Mid(strVal, idxEnd + 1)
		strURL = Mid(strVal, idxStart, idxEnd - idxStart)
	End If
	strOut = strBefore & Server.MapPath(Application("FrontPage_VRoot") & strURL) & strAfter
	Application(AppVarName) = strOut
End Sub
Function FrontPage_FileExists(fspath)
	On Error Resume Next
	FrontPage_FileExists = False
	set fs = CreateObject("Scripting.FileSystemObject")
	Err.Clear
	set istream = fs.OpenTextFile(fspath)
	if Err.Number = 0 then
		FrontPage_FileExists = True
		istream.Close
	end if
	set istream = Nothing
	set fs = Nothing
End Function
\</SCRIPT\>

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

## #14 — @nders, 2002-08-19T19:16Z

Jag kan inte hitta koden till funktionen FP_FieldURL som jag letar efter.

I någon includefil finns något som liknar:

```
Function FP_FieldURL(något här)
   någon kod här
End Function
```

Det är den koden jag vill åt. Dessutom, hur gör du när du lägger in länkarna i databasen?

Använd gärna wF-s kodtaggar när du postar kod, så blir koden betydligt mer lättläst.

Mvh

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

## #15 — anders4u, 2002-08-19T19:22Z

tack

ska försöka göra det mer lättläst.

tack för all hjälp.

databasen fyller jag helt enkelt i i access.
inget avancerat alls.

ska leta efter det du söker.
vänliga hällsningar Anders.

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

## #16 — anders4u, 2002-08-19T19:31Z

hittat

en fil som hette fpdblib.inc

```php
<%

Function FP_FieldVal(rs, fldname)

    FP_FieldVal = Server.HTMLEncode(FP_Field(rs, fldname))
    if FP_FieldVal = "" then FP_FieldVal = "&nbsp;"

End Function

Function FP_Field(rs, fldname)

    If Not IsEmpty(rs) And Not (rs Is Nothing) and Not IsNull(rs(fldname)) Then 
        Select Case rs(fldname).Type
            Case 128, 204, 205 ' adBinary, adVarBinary, adLongVarBinary
                FP_Field = "[#BINARY#]"
            Case 201, 203 ' adLongVarChar, adLongVarWChar
                if rs(fldname).DefinedSize > 255 then
                    ' check for Access hyperlink fields (only absolute http links)
                    fp_strVal = rs(fldname)
                    fp_idxHash1 = InStr(LCase(fp_strVal),"#[url]http://[/url]")
                    if fp_idxHash1 > 0 then
                        fp_idxHash2 = InStr(fp_idxHash1+1,fp_strVal,"#")
                        if fp_idxHash2 > 0 then 
                            ' this is an Access hyperlink; extract the URL part 
                            fp_strVal = Mid(fp_strVal,fp_idxHash1+1)
                            if Right(fp_strVal,1) = "#" then
                                fp_strVal = Left(fp_strVal,Len(fp_strVal)-1)
                            end if
                        end if
                     end if
                     FP_Field = fp_strVal
                else
                     FP_Field = rs(fldname)
                end if
            Case Else
                FP_Field = rs(fldname)
        End Select
    Else
        FP_Field = ""
    End If

End Function

Function FP_FieldHTML(rs, fldname)

    FP_FieldHTML = Server.HTMLEncode(FP_Field(rs, fldname))

End Function

Function FP_FieldURL(rs, fldname)

    FP_FieldURL = Server.URLEncode(FP_Field(rs, fldname))

End Function

Function FP_FieldLink(rs, fldname)

    FP_FieldLink = Replace(FP_Field(rs, fldname), " ", "%20")

End Function

Sub FP_OpenConnection(oConn, sAttrs, sUID, sPWD, fMSAccessReadOnly)

	Dim sTmp
	Dim sConnStr
	Dim fIsAccessDriver

	fIsAccessDriver = (InStr(LCase(sAttrs), "microsoft access driver") > 0)
	sConnStr = FP_RemoveDriverWithDSN(sAttrs)
	sTmp = sConnStr
	
	On Error Resume Next

	If fMSAccessReadOnly And fIsAccessDriver Then

		sTmp = sTmp & ";Exclusive=1;ReadOnly=1"

		Err.Clear
		oConn.Open sTmp, sUID, sPWD
		If Err.Description = "" Then Exit Sub

	End If

	Err.Clear
	oConn.Open sConnStr, sUID, sPWD

End Sub

Function FP_RemoveDriverWithDSN(sAttrs)

	FP_RemoveDriverWithDSN = sAttrs

	sDrv = "driver="
	sDSN = "dsn="
	sLC = LCase(sAttrs)
	if InStr(sLC, sDSN) < 1 then exit function

	idxFirst = InStr(sLC, sDrv)
	if idxFirst < 1 then exit function
	idxBeg = idxFirst + Len(sDrv)
	if Mid(sLC,idxBeg,1) = "{" then 
		idxEnd = InStr(idxBeg, sLC, "}")
		if idxEnd > 0 and Mid(sLC,idxEnd+1,1) = ";" then 
			idxEnd = idxEnd + 1
		end if
	else
		idxEnd = InStr(idxBeg, sLC, ";")
	end if
	if idxEnd < 1 then idxEnd = Len(sLC)
	
	FP_RemoveDriverWithDSN = Left(sAttrs,idxFirst-1) & Mid(sAttrs,idxEnd+1)

End Function

Sub FP_OpenRecordset(rs)
	
	On Error Resume Next
	rs.Open

End Sub

Function FP_ReplaceQuoteChars(sQry)

	Dim sIn
	Dim sOut
	Dim idx

	sIn = sQry
	sOut = ""

	idx = InStr(sIn, "%%")

	Do While (idx > 0)

		sOut = sOut & Left(sIn, idx - 1)
		sIn = Mid(sIn, idx + 2)
		if (Left(sIn,1) = "%") And (Left(sIn,2) <> "%%") then
			sIn = Mid(sIn, 2)
			sOut = sOut & "%"
		end if
		sOut = sOut & "::"

		idx = InStr(sIn, "%%")
		if idx > 0 then
			sOut = sOut & Left(sIn, idx - 1)
			sIn = Mid(sIn, idx + 2)
			sOut = sOut & "::"
			if (Left(sIn,1) = "%") And (Left(sIn,2) <> "%%") then
				sIn = Mid(sIn, 2)
				sOut = sOut & "%"
			end if
		end if
		
		idx = InStr(sIn, "%%")

	Loop

	sOut = sOut & sIn

	FP_ReplaceQuoteChars = sOut

End Function

Sub FP_Close(obj)

	On Error Resume Next

	obj.Close

End Sub

Sub FP_SetCursorProperties(rs)

	On Error Resume Next

	rs.CursorLocation = 3 ' adUseClient
	rs.CursorType = 3 ' adOpenStatic

End Sub

%>
```

försökte fet markera just det men lyckades inte.
Function FP_FieldURL finns med ialla fall

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

## #17 — @nders, 2002-08-19T19:50Z

Jag hade inte gjort Server.URLEncode() såsom Frontpage vill att du ska göra. Prova att byta raden 

```
<td><a href="http://<%=FP_FieldURL(fp_rs,"url")%>" onmouseout="java script:change('')" onmouseover="java script:change('<%=FP_FieldVAL(fp_rs,"description")%>')">
```

mot

```
<td><a href="http://<%=fp_rs("url")%>" onmouseout="java script:change('')" onmouseover="java script:change('<%=FP_FieldVAL(fp_rs,"description")%>')">
```

mvh,

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

## #18 — anders4u, 2002-08-19T20:08Z

Du är en ängel @nders

:bire 
nu är livet gott.
det fungerar hur bra som helst.
jag får se till att frontpage inte ändrar tillbaka det sedan.
men du har jag lösningen och det är jag supertacksam för.

tack för att du la ner tid.
Hällsningar Anders.

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

## #19 — @nders, 2002-08-19T20:15Z

Varsågod!

Om du har intresse och tid så hoppas jag att du lär dig att skriva ASP-koden själv och inte låta Frontpage förstöra för dig. Frontpage stjälper ofta mer än det hjälper, är min uppfattning.

Lycka till, och återkom med frågor! :)

Mvh,

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

## #20 — anders4u, 2002-08-19T20:24Z

japp

jag ska börja internet-teknik på högskolan nu i jönköping så blir det väl lite asp ialla fall.

hoppas att jag kan hjälpa dig någon gång med nått.
 / Anders

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/50728-i-databas-funkar-inte-det