<%@LANGUAGE="VBSCRIPT"%> <% Dim rsProfile__MMColParam rsProfile__MMColParam = "ross" If (Request.QueryString("name") <> "") Then rsProfile__MMColParam = Request.QueryString("name") End If %> <% Dim rsProfile Dim rsProfile_numRows Set rsProfile = Server.CreateObject("ADODB.Recordset") rsProfile.ActiveConnection = MM_mitconn_STRING rsProfile.Source = "SELECT ID, firstname, lastname, fax, telephone, content, email FROM tblUsers WHERE lastname = '" + Replace(rsProfile__MMColParam, "'", "''") + "'" rsProfile.CursorType = 0 rsProfile.CursorLocation = 2 rsProfile.LockType = 1 rsProfile.Open() rsProfile_numRows = 0 %>

_large.jpg" vspace="10" border="1">

<%=(rsProfile.Fields.Item("firstname").Value)%> <%=(rsProfile.Fields.Item("lastname").Value)%>

Telephone: <%=(rsProfile.Fields.Item("telephone").Value)%>
Fax: <%=(rsProfile.Fields.Item("fax").Value)%>
Email: "><%=(rsProfile.Fields.Item("email").Value)%>

About

">Vitae

<%=(rsProfile.Fields.Item("content").Value)%>

<% rsProfile.Close() Set rsProfile = Nothing %>