Page 2 - SQL Data Types - Please Help

<%
Dim strSearch
Dim adoCon
Dim strCon
Dim rsInfo

strSearch = Request.QueryString("srcFor")

'Create a connection odject.
Set adoCon = Server.CreateObject("ADODB.Connection")

'Database connection info and driver.
strCon = "driver={SQL Server};Server=(local);Database=VitalData;Uid=;Pwd  ="

'Set an active connection to the Connection object.
On Error Resume Next
adoCon.Open strCon
If Err Then
Response.Write("There was a problem connecting to the database")
End If

'Create a recordset object.
Set rsInfo = Server.CreateObject("ADODB.Recordset")

On Error Resume Next
rsInfo = adoCon.Execute("EXEC dbo.sp_demo_ssn @strSearch = " & strSearch & "")
If Err Then
Response.Write("There was a problem executing the stored procedure.")
End If

Do Until rs.Info.EOF
Response.Write("Name: " & rsInfo("PATIENTNAM") & " SSN: " & rsInfo("SSNUM") & "")
rsInfo.MoveNext
Loop
%>

Do Until rs.Info.EOF

TO

Do until rsInfo.eof