Global.asa
------------
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart()
Dim strConn
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\faq.mdb"
Application("strConn") = strConn
End Sub
</SCRIPT>
------------
Default.asp
------------
<% Option Explicit %>
<html>
<head>
<title>Frequently Asked Questions</title>
</head>
<body>
<h2>FAQ</h2>
<ol>
<%
Dim rsFAQ
Set rsFAQ = Server.CreateObject("ADODB.Recordset")
rsFAQ.Open "FAQ", Application("strConn")
Do While Not rsFAQ.EOF
Response.Write "<li><b>" & rsFAQ("Question") & "</b>"
Response.Write "<p>" & rsFAQ("Answer") & "</p></li>"
rsFAQ.MoveNext
Loop
If rsFAQ.BOF Then
Response.Write "<p>No FAQs in the database!</p>" & vbNewLine
End If
rsFAQ.Close
%>
</ol>
</body>
</html>
--------------
Default.asp won't load into the browser... Any ideas what I did?
------------
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart()
Dim strConn
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\faq.mdb"
Application("strConn") = strConn
End Sub
</SCRIPT>
------------
Default.asp
------------
<% Option Explicit %>
<html>
<head>
<title>Frequently Asked Questions</title>
</head>
<body>
<h2>FAQ</h2>
<ol>
<%
Dim rsFAQ
Set rsFAQ = Server.CreateObject("ADODB.Recordset")
rsFAQ.Open "FAQ", Application("strConn")
Do While Not rsFAQ.EOF
Response.Write "<li><b>" & rsFAQ("Question") & "</b>"
Response.Write "<p>" & rsFAQ("Answer") & "</p></li>"
rsFAQ.MoveNext
Loop
If rsFAQ.BOF Then
Response.Write "<p>No FAQs in the database!</p>" & vbNewLine
End If
rsFAQ.Close
%>
</ol>
</body>
</html>
--------------
Default.asp won't load into the browser... Any ideas what I did?
