Site hosted by Angelfire.com: Build your free website today!
undefined
undefined

The Coolest Page EVER Made

AudioFind:       
2Look4 MP3 Search:

Search mp3's with mp3planet

          


The Coolset links in the world

Funny Picture of a New Beany Baby
Trick or Treat
Kids do the darndest things
South Park in teletubbie form
Billboard Charts
MTV ONLINE
SUPER COOL GAMES YOU CAN PLAY My MP3's that rule
Barnes and Noble Links (You have to check it out)

Homepage
Bestsellers Page
Software Store
Gift Center

These statements are always true

49ers rule

South Park rules

This site is the coolest you will ever see

I am always right

Email: rlamb13@aol.com
<% OPTION EXPLICIT %> [an error occurred while processing this directive] <% Dim i, cn, rsData Dim UserId, LastName Call GetUserId() Call SetUpADO() Call PullData() '*************** '* SubRoutines * '*************** Sub PullData() Dim SQL 'Check if they've already signed up SQL = "SELECT count(*) FROM Stud_Reg_Data WHERE ML_IDENT = '" & UserId & "' " Call rsData.Open(SQL,cn,adOpenStatic,adLockReadOnly,adCmdText) If rsData(0) <> 0 Then %> We're sorry, but our records show that you have already submitted your electronic reply card.

If you would like to verify this information, please call the admissions office at (202) 628-6090. <% Response.End End If If rsData.State = adStateOpen Then rsData.Close SQL = "Select * From Stud_Data Where UPPER(ML_IDENT) = '" & UserId & "'" SQL = SQL & " and STU_LAST_NAME = '" & LastName & "'" Call rsData.Open(SQL,cn,adOpenStatic,adLockReadOnly,adCmdText) ' rsData.Open SQL,cn,adOpenForwardOnly,adLockOptimistic,adCmdText If rsData.EOF Then Response.Write "

I'm sorry, but the Security Code: '" & UserId Response.Write "' was not found with that password.
Please hit the back button on your " Response.Write " browser to try again.
" Response.End End If End Sub 'PullData() Sub GetUserId() UserId = UCase(Request.QueryString("ID")) LastName = UCase(Request.QueryString("LASTNAME")) End Sub 'GetUserId() Sub SetUpADO() Set cn = Server.CreateObject("ADODB.Connection") Set rsData = Server.CreateObject("ADODB.Recordset") If Request.ServerVariables("SERVER_NAME") = "css600e" Then 'for MY PC --jjb Dim CONSTRING CONSTRING="Driver={SQL Server};Server=sql701.webhosting.com;APP=futuredoctors_ASP;WSID=MoreInfo_ASP;Database=futuredoc;" cn.Open CONSTRING, "karenP","DavCar6" Else cn.Open "DSN=futuredoc;UID=karenP;PWD=DavCar6;" End If cn.COMMANDTIMEOUT = 90 rsData.ActiveConnection = cn rsData.CursorType = adOpenStatic End Sub 'SetUpADO() %> 2000 National Youth Leadership Forum on Medicine


    2000 NATIONAL YOUTH
    LEADERSHIP FORUM ON MEDICINE

    "> ">

    Yes, I accept my nomination to attend the 2000 National Youth Leadership Forum on Medicine. Please send my Forum registration packet immediately.

    I certify that my current grade point average is at least 3.3 on a 4.0 scale and that I will graduate from high school in 2000, 2001, or 2002.

    I understand that accepting my nomination does not obligate me or my parents in any way.

    Check Here[required]

     

    First Name: ">
    Last Name: ">
    Address: ">
    City, State, Zip: "> "> ">

     

    Please reply by May 19, 2000.

    Parent or Guardian’s First Name:
       
    Parent or Guardian’s Last Name:
        [required]

    Student’s Telephone Number: () -

    Student’s E-mail Address:











 




">Institutions | ">Speakers | ">Areas of Concentration
">Dates | ">Information

&lastname=<%=Request.QueryString("lastname")%>">REPLY CARD