<% Dim conlink Dim rs Dim strconn Dim DBQValue Session("DataConn_ConnectionString") = _ "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("Info.mdb") strconn = Session("DataConn_ConnectionString") set conlink = server.createobject("adodb.connection") set rs = server.createobject("adodb.recordset") conlink.open strconn COMP="TOPICS" strsql = "SELECT * FROM users order by UserID" rs.open strsql, conlink, 2, 2 %> Wei office Function

Wei office Located at Metro Toronto <% dim username username="LI" if username<> null then Response.Write("

Welcome: " & username &"

") end if %>


Welcome

Wei Office
Join Club
Resume
Web Link
Data Sort
Services
More Bar
Home


<% if username=null then %>
*NewUser

User__ID: Password:

<% end if %>

Mail to Webmaster

Canada

1