ASP Classic

ab289 · March 7th, 2008, 05:52 PM

Can anyone help me? I do not know ASP at all.

I have an application that is currently working. But we want some changes to it.

Example:

Person A
123 Main St
xxx, xx, 12345
USA

Person B
234 Main St
xxx, xx, 12345
USA

The Person A and Person B and their addresses are fields in the database and rendered according to a query. However, we would like to add a static personal page for individual person. We have added a column in database for the static URL. But I do not what's involved in adding that URL field to the page. Can anyone help? Thanks

dparsons · March 7th, 2008, 05:59 PM

Without seeing a lick of your code I assume that you have some sort of form that displays the data you have shown above. You obviously would need to adjust the query that returns this data so taht it now includes the the URL of the persons home page and the code you would then use to write the data back out would be something like:

Personal URL: <%=rs("PersonURL")%>

where rs is your RecordSet object and "PersonURL" is the column that contains the persons url from your query.

hth.

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
================================================== =========
.: Wrox Technical Editor / Author :.
Wrox Books 24 x 7
================================================== =========

ab289 · March 7th, 2008, 11:34 PM

Thanks for the quick response. Here's the code:

<% If EmployeesAll <> "" Then
Response.Write "<table>"
Response.Write "<tr valign=""top"" align=""left""><td><B>Employee:</B></td></tr>"

MyEmployeesAll = Split(EmployeesAll, "|")

If IsArray(MyEmployeesAll) Then
For i = 0 to UBound(MyEmployeesAll) -1
  Response.Write "<tr align=""left"" valign=""top""><td align=""left""><TABLE BORDER=0><TR><TD>" & MyEmployeesAll(i) & "</TD></TR></TABLE></td></tr>"
Next
Else
  Response.Write "<tr align=""left"" valign=""top""><td align=""left""><TABLE BORDER=0><TR><TD>" & EmployeesAll & "</TD></TR></TABLE></td></tr>"
End If
Response.Write "</table><br>"
End If
%>

Correct me if I'm wrong, but i understand that the code will split up all the employees name. which will make it

Person A
Person B
Person C
...

So if I were to insert a link on the name itself, I figured it'll be at the red asterix? But how would I insert it?

<% If EmployeesAll <> "" Then
Response.Write "<table>"
Response.Write "<tr valign=""top"" align=""left""><td><B>Employee:</B></td></tr>"

MyEmployeesAll = Split(EmployeesAll, "|")

If IsArray(MyEmployeesAll) Then
For i = 0 to UBound(MyEmployeesAll) -1
Response.Write "<tr align=""left"" valign=""top""><td align=""left""><TABLE BORDER=0><TR><TD>" & * MyEmployeesAll(i) & "</TD></TR></TABLE></td></tr>"
Next
Else
  Response.Write "<tr align=""left"" valign=""top""><td align=""left""><TABLE BORDER=0><TR><TD>" & *EmployeesAll & "</TD></TR></TABLE></td></tr>"
End If
Response.Write "</table><br>"
End If
%>

Thanks again for the help!

dparsons · March 8th, 2008, 01:40 PM

You are correct on the first bit of code. It creates a table inside of a table row and writes out the current value of the array into a table cell.

You can insert a link by doing something like this (I have placed the new code in bold):

Response.Write "<tr align=""left"" valign=""top""><td align=""left""><TABLE BORDER=0><TR><TD><a href='somelink.asp'>" & * MyEmployeesAll(i) & "</a></TD></TR></TABLE></td></tr>"

does that make sense?

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
================================================== =========
.: Wrox Technical Editor / Author :.
Wrox Books 24 x 7
================================================== =========

ab289 · March 9th, 2008, 10:06 PM

Does that mean it'll be like this, if the URL is rendered from database?

Response.Write "<tr align=""left"" valign=""top""><td align=""left""><TABLE BORDER=0><TR><TD><a href='" & PersonURL &"'>" & MyEmployeesAll(i) & "</a></TD></TR></TABLE></td></tr>"

dparsons · March 10th, 2008, 07:41 AM

That will work if the URL is always the same or you change the value of PersonURL with each loop. But yes, that should work.

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
================================================== =========
.: Wrox Technical Editor / Author :.
Wrox Books 24 x 7
================================================== =========

ab289 · March 10th, 2008, 02:53 PM

ok .. I tried it and it doesn't work.

I have included

EmployeesURL = URLList(Rs("Employee_PK"))

Function URLList(strKey)
  Set Rs = Server.CreateObject("ADODB.Recordset")
  sql = "SELECT URL FROM Deptvw_ListEmployees WHERE REFTABLE_K = '" & strKey & "'"
  Rs.Open sql, Conn
  Do While Not Rs.EOF
    URLList = Trim(Rs("URL"))
    Rs.MoveNext
  Loop
  Rs.Close
  Set Rs = Nothing
End Function

And I have also added:

<% If EmployeesURL <> "" Then
Response.Write "<table>"
Response.Write "<tr valign=""top"" align=""left""><td><B>URL:</B> " & EmployeesURL & "</td></tr>"
Response.Write "</table><br>"
End If
%>

where did I go wrong? Thank you.