<% Dim cnnSimple Dim rstSimple Dim strDBPath Dim objDC DIm objRS Dim cnnDBEdit, rstDBEdit Dim strSQL, strSQL2 Dim strLogin Dim strPassword Dim strUsername Dim strPword Dim iID, iRecordID Dim strEmail Dim strDateAdded strDBPath = Server.MapPath("/members/db/db.mdb") Set cnnSimple = Server.CreateObject("ADODB.Connection") cnnSimple.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";" Dim CONN_STRING CONN_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";" Select Case Request.QueryString("action") Case "view" iRecordId = Request.QueryString("ID") strSQL = "SELECT * FROM Site WHERE ID=" &iRecordId& ";" Set rstDBEdit = Server.CreateObject("ADODB.Recordset") rstDBEdit.Open strSQL, CONN_STRING, adOpenKeyset, adLockOptimistic, adCmdText If Not rstDBEdit.EOF Then %>document.write("<%= rstDBEdit.Fields("Article").Value %>") <% Else Response.Write "Record not found!" End If rstDBEdit.Close Set rstDBEdit = Nothing End Select %>