|
<%
Dim SqlJunk
data_source = "Driver={SQL Server};Server=212.241.203.215;Database=itf;UID=gporter;PWD=Secur1ty01"
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open data_source
SqlJunk = "SELECT * FROM ITF_Sub_Contacts ORDER BY Firstname ASC"
If Request.Form("TypeSearch") = "name" Then
SqlJunk = SqlJunk & " WHERE Username LIKE '%" & _
Request.Form("SearchBox") & "%'"
End If
If Request.Form("TypeSearch") = "company" Then
SqlJunk = SqlJunk & " WHERE company LIKE '%" & _
Request.Form("SearchBox") & "%'"
End If
If Request.Form("TypeSearch") = "Email" Then
SqlJunk = SqlJunk & " WHERE Email LIKE '%" & Request.Form("SearchBox") & "%'"
End If
If Request.Form("TypeSearch") = "Country" Then
SqlJunk = SqlJunk & " WHERE Country LIKE '%" & Request.Form("SearchBox") & "%'"
End If
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SqlJunk, conn, 3
%>
<%
If rs.BOF and rs.EOF Then%>
No
match found!
Please ensure
you chose the correct catagory for your search expression
New
Search
<%Else%>
<%If Not rs.BOF Then%>
Manage
Contacts
| Company |
Lastname
| Firstname |
Edit |
<%
Do While Not rs.EOF
%>
| <%=rs("Company")%> |
<%=rs("LastName")%>, <%=rs("FirstName")%> |
<%
Response.Write(" Security / Contact Details | " & Chr(13))
%>
<%
Response.Write(" Delete | " & Chr(13))
Response.Write(" " & Chr(13))
%>
<%
rs.MoveNext
Loop
%>
<%
'-- Delete Link
%>
<%End If%>
<%End If%>
<%
rs.Close
conn.Close
%>
|
Developed
by: AGD Associates Ltd 
