Hyperlink from Database

Kelly Johnson · July 28th, 2003, 03:24 PM

I'm trying to create a hyperlink from a field that I have pulled from a database. Below is my code, I hope someone can help.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.QueryString("pgm") <> "") Then
  Recordset1__MMColParam = Request.QueryString("pgm")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_MISWork_STRING
Recordset1.Source = "SELECT Item, Tower, pgm, user FROM Inventory WHERE pgm = '" + Replace(Recordset1__MMColParam, "'", "''") + "'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<table width="98%" border="1">
  <tr>
    <td width="17%"><div align="center"><strong>Item Number</strong></div></td>
    <td width="34%"><div align="center"><strong>Tower Number</strong></div></td>
    <td width="18%"><div align="center"><strong>Program</strong></div></td>
    <td width="31%"> <p align="center"><strong>User</strong></p></td>
  </tr>
  <%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
  <tr>
    <td><div align="center"><%=(Recordset1.Fields.Item("Item"). Value)%></div></td>
    <td><div align="center"><%=(Recordset1.Fields.Item("Tower") .Value)%></div></td>
    <td><div align="center"><a href=update.asp?<%=(Recordset1.Fields.Item("pgm"). Value)%>&">"</a></div></td> <td><div align="center"><%=(Recordset1.Fields.Item("user"). Value)%></div></td>
  </tr>
  <%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Recordset1.MoveNext()
Wend
%>
</table>
h
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

NotNowJohn · July 28th, 2003, 06:04 PM

Quote:

quote:<a href=update.asp?<%=(Recordset1.Fields.Item("pgm"). Value)%>&">"</a>

Well, you have to define a variable name and then assign a value from recordset.
Replace a quoted line with these lines:

Code:

<%
update_url="<a href=update.asp?pgm=" & Recordset1.Fields.Item("pgm").Value & ">"
update_url=update_url & Recordset1.Fields.Item("pgm").Value & "</a>"
Response.Write update_url
%>

...but the Soon is eclipsed by the Moon