Hyperlinks From Database

[pjb007]

I am writing my ASP by hand rather than using ASP.NET as that is not available to me.

I have a database in that MS-Access database is a table called links

In that table there are 4 columns:
The First is a autonumber field to act as an ID this is the Primary Key
The Second is the URL
The Thrid is the Site name
The Forth is the Information about the site

What I want to do is display the Site Name and have that text linked upto to URL and below display the Info about the site.

I have used Response.Write and can simply display the information but I can't get the Text and the URL to work together.

Can anyone help?

[Davey]

What problem exactly do you have. Can you post some sample code for us to look at?

Thanks.

[pjb007]

Here is the code (I have just taken the code between the body tags)

<table width="100%"  border="0">
  <tr valign="top">
    <td width="21%"><!-- #include file="nav/left.asp" --></td>
    <td width="79%"><p><strong>Useful Links</strong></p>
      <p><% 

dim Conn 
dim FilePath 
dim SQL 
Dim RsUser 

'Connection to Database 
Set Conn = Server.CreateObject("ADODB.Connection") 
FilePath = Server.MapPath("db/database.mdb") 
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & FilePath & ";" 

'SQL Query String 
SQL = "Select * FROM links" 

'Set the Recordset 
Set RSUser = Conn.Execute (SQL) 

'Print the Recordset 
RSUser.movefirst 
Do while not RSUser.EOF 

Response.Write ("<P>") 
Response.Write (RSUser("url"))    'the address of the website
response.write("<br>") 
response.write (RSUser("text"))   'the title of the website
response.write("<br>")
response.write (RSUser("info"))   'info about website
Response.Write ("</a>") 
Response.Write ("</p>") 

    
RSUser.movenext 

Loop 
%></p>
      <p>&nbsp; </p></td>
  </tr>
</table>
<p>&nbsp; </p>
</body>

I understand what is wrong with the above code, it currently shows the 'url', 'text' and 'info' fields from the database and loops till all entries are shown.

Now I would like to make it so that the user only sees 'text' and 'info' and the link on 'text' is 'url' that is where I can't get it to work.

[pjb007]

I have found it works if you store the URL without the http:// and use the below code.

  
RSUser.movefirst 
Do while not RSUser.EOF 
Response.Write ("<p>") 
Response.Write ("<a href=" & chr(34) & "http://" & RSUser("url") & chr(34)& ">")
Response.Write (RSUser("text")) 'the title of the website 
Response.Write ("</a>") 
Response.Write ("<br>") 
Response.Write (RSUser("info")) 'info about website 
Response.Write ("</p>") 
RSUser.movenext

Code suggested from a member of another forum.