connect to sql server 2005 problem
I want to retrieve data from sql server 2005 after clicking a button
so I do this code but it not work any help please
so I do this code but it not work any help please
Code:
<html>
<head>
</head>
<body>
<%
dim conn
dim 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>
Comment