|
[x]
Posted via EE Mobile
|
||
Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again. |
||
| Question |
|
[x]
Attachment Details
|
||
|
[x]
The Solution Rating System
|
||
With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.
Your Input Matters If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support. Thank you! |
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: |
<%@ LANGUAGE = "VBScript"%>
<center>
<%
'open a database connection
Set dataconnection = Server.CreateObject("ADODB.Connection")
dataconnection.Open "DSN=Exts"
Response.Write "<html><body>"
'execute your select statement
query = "SELECT * FROM Extensions"
Set rs = dataconnection.Execute(query)
'If there are records in table
If Not rs.EOF Then
Response.Write"<table border=1>"
LinkCount = 0
' Do until the end of all records
Do Until rs.EOF
'change 5 to any number of columns you like
If LinkCount Mod 1 = 0 Then
If LinkCount <> 0 Then Response.Write"</tr>"
Response.Write"<tr><td>"&rs("NAME")&"</td><td>"&rs("TITLE")&"</td><td>"&rs("LOCATION")&"</td><td>"&rs("EXTENSION")&"</td>"
Else
Response.Write"<td>"&rs("NAME")&"<b>"&rs("TITLE")&"</td>"
End If
LinkCount = LinkCount + 1
'loop till end of records
rs.MoveNext
Loop
Response.Write"</tr></table>"
'Close
rs.Close
Set rs = Nothing
Else
'Write no records in there are no records
Response.Write"Sorry, no records were found!"
End If
Response.Write "</body></html>"
'Close database connection
dataconnection.Close
Set dataconnection = Nothing
%>
|
Advertisement
| Hall of Fame |