Using ASP and WML to implement database queries

Paste a paragraph of ASP and WML query database code, we refer to the reference, in fact, with ASP to write a Web page very similar.

<%response.contenttype = "TEXT/VND.WAP.WML"%>
http://www.wapforum.org/DTD/wml_1.1.xml"

<%
Dim Conn, RS
Dim Strsql,strfirstname, strLastName
Set conn = Server.CreateObject ("ADODB. Connection ")
Set rs = Server.CreateObject ("ADODB.") Recordset ")

Conn.Open session ("myconnect_string") ' Replace with your connect string

Strwhois = Request.QueryString ("username")
if strwhois= "then
% >

Please enter username to find




/do>

<%
Else
strSQL = "SELECT * from tblusers WHERE Username = ' & Strwhois & '"
Set RS = conn. Execute (strSQL)

%>

<%
If not Rs. EOF Then
Rs. MoveFirst
Response.Write " User Search Results "
While not Rs. Eof
strFirstName = "The Name of" & RS ("FirstName")
strLastName = "Last Name" & RS ("LastName")
Response.Write strFirstName
Response.Write strLastName
Rs. MoveNext
Wend
Else
Response.Write "Sorry, no user found."
End If
%>

<%
End If
%>