<%
Const FONT_FACE = "Tahoma, Arial, Monaco, Helvetica, Sans-Serif"
Sub FontWrite (ByVal sText)
Write "" & sText & ""
End Sub
Dim iMemberID
Dim oConnection
Dim oRS
iMemberID = CLng(Request.QueryString("ID"))
If iMemberID > 0 Then
Set oConnection = ADO_Connection_("DRIVER={Microsoft Access Driver (*.mdb)};" _
& "DBQ=" & Server.MapPath("rotarytest.mdb"))
Set oRS = ADO_Recordset_("SELECT *" _
& " FROM Memberdatabaseexport" _
& " WHERE MemberID=" & iMemberID, _
oConnection, _
adOpenDynamic, _
adLockReadOnly)
If Not oRS.EOF Then
%>
Health and Happiness item:
Your Name:
Name of Member this item is about:
Subject:
Web Links, if any:
Details:
<%
Else
FontWrite("Unable to find record for ID " & iMemberID)
End If
Else
FontWrite("QueryString parameter ""ID"" not supplied")
End If
%>
