conn.open constr
Set c=Server.CreateObject("ADODB.Command")
With c
Set .ActiveConnection = conn
.CommandType = 1
.CommandText = "Select -- from -- where --=?"
.Parameters.Append .CreateParameter("@--",200,1,20,--)
set rs=.Execute()
End With
Set c.ActiveConnection = Nothing
set c=nothing
If Not rs.eof Then
--
End If
rs.close
conn.close