<% Set conn=Server.CreateObject("ADODB.Connection") Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.mappath(".") &"/board.mdb" ' have change 'Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\science\Webboard_general\board.mdb" 'oledb for ado2.0 up only run from client they don't know D: it is physical drive Sql="Select * From Topics where ID=" & Request.QueryString("ID") Set rs=Conn.Execute(Sql) With Response .Write "" .Write "" .Write "" .Write "" .Write "" .Write "
" .Write "  " .Write "

" .Write "" .Write "" .Write "" .Write "" .Write "" .Write "" .Write "" .Write "

" & rs("Topics") & "
" & rs("User") & " " & rs("Email") & " " & rs("Date") & "	" & rs("Data") & "

" End With sql="Select * From Topics Where ParentID=" & Request.QueryString("ID") & " Order by Date" Set rs=conn.Execute(sql) Do While Not rs.Eof With Response .Write "
" .Write "" .Write "" .Write "" .Write "" .Write "" .Write "" .Write "

" & rs("Topics") & "
" & rs("User") & " " & rs("Email") & " " & rs("Date") & "	" & rs("Data") & "

" End With rs.MoveNext Loop Response.Write "" %>