<% Response.Buffer = true Dim Run Run = Trim(Request("Run")) if Run = "" Then Response.Redirect "default.html" End If %>
 

New Post

    
 
  Back to Message Board
     
  Memphis Hooper's wants to know the latest in local news to share with the rest of the Basketball World. Read  what  others  had  to say  
<% ' Get Users Subjects Dim Conn1, dbPath1,StrExec,rsTemp,Mol,Alias dbPath1 = "c:\website\dat\mh\messageboard.mdb" Set Conn1 = Server.CreateObject("ADODB.Connection") Conn1.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath1 StrExec="SELECT * FROM Users WHERE Id" set rstemp = Server.CreateObject("ADODB.Recordset") rsTemp.Open StrExec, Conn1, 3 If rsTemp.EOF = True Then %>    
     
Name    
  (3 Characters Min)
Subject    
  (4 Characters Min) 
Comments    
    (150 Characters. Max)
     
     
   
     
         
    Powered By Just Imagine