Url i database

jaja klart nok.. her blir links vist ;( men ikke i resultatet...

forståligt nok ???

det er ikke nok bare at skrive selve urlen du skal jo også lave et <a href\"\"></a> tag ellers bliver din url ikke til et hyperlink :)

grunden til de gør det i det her forum er at det er at forum\'et er scriptet til at gøre det

Du kan gøre:

<a href=\"<% If left(rs(\"www\"), 7) <> \"http://\"%> then \">http://<% End If %><%=rs(\"www\")%>\"><%=rs(\"firma\")%></a>

Ups.. der var en fejl, det skal se sådan ud:

<a href=\"<% If left(rs(\"www\"), 7) <> \"http://\" then%>http://<% End If %><%=rs(\"www\")%>\"><%=rs(\"firma\")%></a>

slapstick > den vidste jeg godt ;)

Darkhero > kan du ikke lige rette den til så jeg kan bruge den i scriptet..

Microsoft VBScript compilation error \'800a0400\'

Expected statement

/kbh.asp, line 26

<a href=\"<% If left(rs(\"www\"), 7) <> \"http://\" then
^

Gør det nu ordentligt, hvad hvis der i databasen står Http:// ?

Response.write(\"<tr><td>\")
Response.write(rs(\"firma\") & \"</td><td>)
If Lcase(left(rs(\"www\"), 7)) <> \"http://\" Then
  Response.write(\"<a href=\"\"\"http://\" & rs(\"www\") & \"\"\">\" & rs(\"www\") & \"</a>\")
Else
  Response.write(\"<a href=\"\"\" & rs(\"www\") & \"\"\">\" & rs(\"www\") & \"</a>\")
End if
Response.write(\"</td></tr>\")

Også mangler der lige nogle <table> og </table> men det kan jo være de er før og efter :)

netsrac > smed dit ind.. stadig fejl..

har fået rettet \"

jeg poster hele asp\'er og et link til fejlen.


<html>
<head>
<title>Untitled Document</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
</head>

<body bgcolor=\"#003366\" text=\"#FFFFFF\" link=\"#FFFFFF\" vlink=\"#FFFFFF\" alink=\"#FFFFFF\">
Københavns klaverstemmere<br>
<table width=\"100%\" border=\"1\" cellspacing=\"0\" cellpadding=\"0\" bordercolor=\"#FFFFFF\">
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"minfil.mdb\")
Conn.Open DSN

\' SQL forespørgsel
strSQL = \"Select * from firma WHERE amt=\'København\'\"
\' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
\' Gennemløb Recordset (rs) med en løkke
Do While Not rs.EOF
  \' Udskriv værdien af kolonnerne
Response.write(\"<tr><td>\")
Response.write(rs(\"firma\") & \"</td><td>\")
If Lcase(left(rs(\"www\"), 7)) <> \"http://\" Then
  Response.write(\"<a href=\"\"http://\" & rs(\"www\") & \"\"\">\" & rs(\"www\") & \"</a>\")
Else
  Response.write(\"<a href=\"\"\" & rs(\"www\") & \"\"\">\" & rs(\"www\") & \"</a>\")
End if
Response.write(\"</td></tr>\")
    \'Response.Write \"<tr><td>\" & rs(\"firma\") & \"</td><td><a href=\'\" & rs(\"www\") & \"\'>\" & rs(\"www\") & \"</a></td>\"
  \' Gå til næste Record i rs
  rs.MoveNext
Loop
\' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>

</table>
</body>
</html>

http://www.vejs.dk/eksperten/158123/158123.jpg

som det ses ser det ret underligt ud...

Jeg kan ikke rigtig se noget på det billede ? Det er helt utydeligt ?

netsrac > kig på http://mail.vejs.dk

vælg københavn fra listen i venstre side

Jamen nej da, du har ikke brugt et notat felt til at lagre url´en i vel ? Det er dårligt db design, men hvis det skal være sådan skal du bruge:

notatfelt = rs(\"www\")
Response.write(\"<tr><td>\")
Response.write(rs(\"firma\") & \"</td><td>\")
If Lcase(left(notatfelt, 7)) <> \"http://\" Then
  Response.write(\"<a href=\"\"http://\" & notatfelt & \"\"\">\" & rs(\"www\") & \"</a>\")
Else
  Response.write(\"<a href=\"\"\" & notatfelt & \"\"\">\" & notatfelt & \"</a>\")
End if
Response.write(\"</td></tr>\")


Det skyldes at access ikke kan håndtere at man spørger på det samme notat felt flere gange.

nej www feltet er et hyperlink felt...

Hm...dem kender jeg faktisk ikke at bruge, men prøv med ovenstående eller lav det om til et tekst felt.

netsrac > smid svar ;) gjorde intet indsatte bare din sidste tekst ;)

Svar :)

Najz takker dybt

Så lidt :)