Thank you very much for your reply,her is the error page:
.................................................. ..................
The page cannot be displayed
There is a problem with the page you are trying to reach and it cannot be displayed.
--------------------------------------------------------------------------------
Please try the following:
Open the classified home page, and then look for links to the information you want.
Click the Refresh button, or try again later.
Click Search to look for information on the Internet.
You can also see a list of related sites.
HTTP 500 - Internal server error
Internet Explorer
.................................................. ...................
Here is the code for the DB connection string: Straig of the website.
For your convineance here is a link for the chapter 15 download:
http://www.p2p.wrox.com/dynamic/books/download.aspx
<!-- METADATA TYPE="typelib"
FILE="C:\Program Files\Common Files\System\ado\msado15.dll" -->
<%
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=C:\Inetpub\wwwroot\artresales\fpdb\vsproduc ts.mdb
If Session("blnValidUser") = True and Session("affilID") = "" Then
Dim rsaffilIDCheck
Set rsaffilIDCheck = Server.CreateObject("ADODB.Recordset")
Dim strSQL
strSQL = "SELECT affilID FROM Vendors " & _
"WHERE affilID = '" & Session("affilID") & "';"
rsaffilIDCheck.Open strSQL, objConn
If rsaffilIDCheck.EOF Then
Session("blnValidUser") = False
Else
Session("affilID") = rsaffilIDCheck("affilID")
End If
rsaffilIDCheck.Close
Set rsaffilIDCheck = Nothing
End If
'C:\Inetpub\wwwroot\bid\_private/classified_2000.mdb" changed from the top connection
%>
.................................................. .................
Thank you very much for your help...)