Continue..

Continue....

Description: Want to just show a snippet from each record, and then show a couple dots at the end of the text if there is more text beyond what you are showing on the screen?

We are giving you two different examples here. The first one just shows how to automatically display 50 characters of text from a "DESCRIP" field, and if the description is longer than 50 characters, then show a couple dots (..) at the end of the string (indicating that there is more text to see), else don't show anything at all.

The second example we have here will actually hyperlink the record to itself. Instead of just showing the two dots, it will say "Read More..", which will be hyperlinked to the records ID (PID). When clicked, it will reload this same file and display just that one particular record.

Make sure you have a connection already setup to your database (we named ours: cnDZ), a table in that database named: TABLE, and three fields in that table named: PID, PNAME, and DESCRIP.

<%@ LANGUAGE = "VBScript" %>
<%
Set cnDZ = Server.CreateObject("ADODB.Connection")
cnDZ.Open "DSN=myDatabase"
%>
<html>
<head><title>players.asp</title></head>
<body>
<%
Set rs = cnDZ.Execute("SELECT * FROM TABLE")
If Not rs.EOF Then
Do Until rs.EOF
If Len(rs("DESCRIP")) > 50 Then dot = ".." Else dot = ""
Response.Write"Player Name: "&rs("PNAME")&" "&_
 "Description: "&Left(rs("DESCRIP"),50)&""&dot&" "
rs.MoveNext
Loop
Else Response.Write"Sorry, no records found."
End If
rs.Close
Set rs = Nothing
%>

 

<%
'Or, the second, more intense example
'hyperlinking the record to itself:
specific = Request.QueryString("specific")
If specific = "" Then
Set rs = cnDZ.Execute("SELECT PID, PNAME, DESCRIP FROM TABLE ORDER BY PNAME ASC")
If Not rs.EOF Then
 Do Until rs.EOF
 If Len(rs("DESCRIP")) > 50 Then dot = " <a href=""players.asp?specific="&rs("PID")&""">Read More..</a>" Else dot = ""
 Response.Write"Player Name: "&rs("PNAME")&" "&_
 "Description: "&Left(rs("DESCRIP"),50)&""&dot&" "
 rs.MoveNext
 Loop
Else Response.Write"Sorry, no records found."
End If
rs.Close
Set rs = Nothing
Else
Set rs = cnDZ.Execute("SELECT * FROM TABLE WHERE PID = "&specific&"")
If Not rs.EOF Then
 Response.Write"Player Name: "&rs("PNAME")&" "&_
 "Description: "&rs("DESCRIP")&""
Else Response.Write"Sorry, that record was not found."
End If
rs.Close
Set rs = Nothing
End If
%>
</body>
</html>

My3C's
perrychicker

Back | Tell A Friend | Search this Site
� 1998 - 2008 psacake.com
Version 3.23

Send me One Million FREE Guaranteed Visitors