connect to sql server 2005 problem

AliHabib · December 21st, 2008, 01:34 AM

Hi every one,
this is my first ask and task in asp classic I wrote this code to connect to sql server 2005 to retrieve data but it not work any help please , also how to display the result of the page

Code:

<html>
 <head>
  
 </head>
 <body>
  <%
   dim conn
   strconn ="Provider=SQLNCLI.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=MailSystem;Data Source=."
   Set cnt =Server.CreateObject("ADODB.Connection")
   cnt.ConnectionString= strconn
   cnt.Open
  %>
  <form method="Post">
   Enter Search Name <Input type="text" name="First"/> 
   <select name="Filter">
    <option>And</option>
    <option>Or</option>
   </select>
   <Input type="text" name="Second"/>
   <Input type="Submit" value="Search" name="Search"/>
  </form>
  <% if  Request.Form("Second")<>"" then
    sql="exec selectMesseges1'" & First & "','" & Filter & "','" & Second & "'"
   else
    sql="select *  from MessegesIDTable where subject like '" & First & "'+'%'"
   
   set rs=Server.CreateObject("ADODB.Recordset")
   rs.Open sql,cnt
   
   
  %>
 <table width="100%" cellspacing="0" cellpadding="2" border="1">
   <tr>
     <th>ID</th>
     <th>MailFrom</th>
     <th>ToID</th>
  <th>subject</th>
     <th>messege</th>
     <th>AttachedFile</th>
  <th>date</th>
     <th>read</th>
     <th>typeID</th>
   </tr>
   <%
 do until rs.EOF
     response.write("<tr>")
     response.write("<td>" & rs.fields("ID") & "</td>")
     response.write("<td>" & rs.fields("MailFrom") & "</td>")
     response.write("<td>" & rs.fields("ToID") & "</td>")
     response.write("<td>" & rs.fields("subject") & "</td>")
     response.write("<td>" & rs.fields("messege") & "</td>")
     response.write("<td>" & rs.fields("AttachedFile") & "</td>")
     response.write("<td>" & rs.fields("date") & "</td>")
     response.write("<td>" & rs.fields("read") & "</td>")
     response.write("<td>" & rs.fields("typeID") & "</td>")
     response.write("</tr>")
     rs.MoveNext
 loop
 rs.close
 conn.Close
 set rs=Nothing
 set conn=Nothing%>
 </table>
 <%  end if %>
 </body>
</html>