Hyperlink Help!!!

  • anyusernamewilldo
  • Novice
  • Novice
  • anyusernamewilldo
  • Posts: 22

Post 3+ Months Ago

Hi All,

I have a form that users will submit hyperlinks into.
The Hyperlink is submitted & stored into an access database...

However when I query the results the links are shown as text. Not hyperlinks?


Any Advice how I can Return the Results with working Hyperlinks?

Thanks in advance.

Jy
  • Anonymous
  • Bot
  • No Avatar
  • Posts: ?
  • Loc: Ozzuland
  • Status: Online

Post 3+ Months Ago

  • Rabid Dog
  • Web Master
  • Web Master
  • User avatar
  • Posts: 3245
  • Loc: South Africa

Post 3+ Months Ago

What does your code look like that is returning the results?
  • anyusernamewilldo
  • Novice
  • Novice
  • anyusernamewilldo
  • Posts: 22

Post 3+ Months Ago

Heres what the code returning the Results Looks Like:
The one highlighted in red is the one i wish to be returned as a hyperlink in the results


Code: [ Select ]
<%
' Declaring variables
Dim rs, data_source, no
no = 0
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
    Server.MapPath("form.mdb")
 
' Creating Recordset Object and opening the database
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM users ORDER BY id DESC ", data_source
 
 
' Looping through the records to show all of them
While Not rs.EOF
    Response.Write "<form action='del.asp' method='post'>"
    Response.Write "***********************" & "<br>"
    Response.Write "<strong>Name :</strong> " & rs("name") & "<br>"
    Response.Write "<strong>Date :</strong> " & rs("dateposted") & "<br>"
    Response.Write "<strong>Link :</strong> " & rs("topic") & "<br><br>"
    Response.Write "<strong>Comments :</strong>  <br> " & rs("comments") & "<br>"
    Response.Write "<input type='hidden' name='id' value='" & rs("id") & "'>"
    Response.Write "<input type='submit' value='Delete'>" & "<br>"
    Response.Write "</form>"
    no = no + 1
    rs.MoveNext
Wend
 
' Done. Now close the Recordset
rs.Close
Set rs = Nothing
 
Response.Write "<p>Total Records Found : " & no
%>
  1. <%
  2. ' Declaring variables
  3. Dim rs, data_source, no
  4. no = 0
  5. data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
  6.     Server.MapPath("form.mdb")
  7.  
  8. ' Creating Recordset Object and opening the database
  9. Set rs = Server.CreateObject("ADODB.Recordset")
  10. rs.Open "SELECT * FROM users ORDER BY id DESC ", data_source
  11.  
  12.  
  13. ' Looping through the records to show all of them
  14. While Not rs.EOF
  15.     Response.Write "<form action='del.asp' method='post'>"
  16.     Response.Write "***********************" & "<br>"
  17.     Response.Write "<strong>Name :</strong> " & rs("name") & "<br>"
  18.     Response.Write "<strong>Date :</strong> " & rs("dateposted") & "<br>"
  19.     Response.Write "<strong>Link :</strong> " & rs("topic") & "<br><br>"
  20.     Response.Write "<strong>Comments :</strong>  <br> " & rs("comments") & "<br>"
  21.     Response.Write "<input type='hidden' name='id' value='" & rs("id") & "'>"
  22.     Response.Write "<input type='submit' value='Delete'>" & "<br>"
  23.     Response.Write "</form>"
  24.     no = no + 1
  25.     rs.MoveNext
  26. Wend
  27.  
  28. ' Done. Now close the Recordset
  29. rs.Close
  30. Set rs = Nothing
  31.  
  32. Response.Write "<p>Total Records Found : " & no
  33. %>




Thanks In advance for any pointers
  • Rabid Dog
  • Web Master
  • Web Master
  • User avatar
  • Posts: 3245
  • Loc: South Africa

Post 3+ Months Ago

Code: [ Select ]
Response.Write "<strong>Link :</strong> <a href='" & rs("topic") & "'>" & rs("topic") & "</a>" & "<br><br>"
  • anyusernamewilldo
  • Novice
  • Novice
  • anyusernamewilldo
  • Posts: 22

Post 3+ Months Ago

Fits like a Boat!!!

Thank you so much for top notch fast responses Rabid Dog
All these basic pointers your giving me are going to enable me to design so many cool things.

Thanks Again


Jy
  • Rabid Dog
  • Web Master
  • Web Master
  • User avatar
  • Posts: 3245
  • Loc: South Africa

Post 3+ Months Ago

Always a pleasure :)

Post Information

  • Total Posts in this topic: 6 posts
  • Users browsing this forum: No registered users and 99 guests
  • You cannot post new topics in this forum
  • You cannot reply to topics in this forum
  • You cannot edit your posts in this forum
  • You cannot delete your posts in this forum
  • You cannot post attachments in this forum
 
 

© 1998-2014. Ozzu® is a registered trademark of Unmelted, LLC.