|
VBScript String Constants
<%
Const adOpenForwardOnly = 0
Const adLockReadOnly = 1
Const adCmdTable = 2
Dim objConnection
Dim objRs
Set objConnection = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.Recordset")
objConnection.Open "DBQ=" & Server.MapPath("stringcon.mdb")& ";Driver={Microsoft Access Driver (*.mdb)}"
objRs.Open "tblstringcon", objConnection , adOpenForwardOnly, adLockReadOnly, adCmdTable
Response.Write" "
Response.Write"| Constant | value | description | "
While Not objRs.EOF
Response.Write ""
Response.Write "| "
Response.Write objRs.Fields("Constant")
Response.Write " | "
Response.Write objRs.Fields("Value")
Response.Write " | "
Response.Write objRs.Fields("Description")
Response.Write " | "
Response.Write "
"
objRs.MoveNext
Wend
Response.Write" "
objRs.Close
Set objRs = Nothing
%>
|
|
Sponsors
|
