Medical Education
|
%@ language = vbscript%> <%session.codepage = 65001%> <% Set Conn = Server.CreateObject("ADODB.Connection") Set rsUser = Server.CreateObject("ADODB.RecordSet") Set rsCV = Server.CreateObject("ADODB.RecordSet") Set rsSchool = Server.CreateObject("ADODB.RecordSet") Set rsResearchCenter = Server.CreateObject("ADODB.RecordSet") Set rsRank = Server.CreateObject("ADODB.RecordSet") Conn.Open connString rsUser.open "SELECT * FROM tblreg WHERE uid = '" & uid & "'", conn memID = rsUser("memID") rsCV.open "SELECT * FROM tblreg WHERE memID=" & memID, conn lname = rsUser("FamilyTxt") fname = rsUser("NameTxt") lname = ConvertCap(FamilyTxt) fname = ConvertCap(NameTxt) Function ConvertCap(txt) FirstLetter = Left(txt,1) FirstLetter = Ucase(FirstLetter) remaining = Right(txt,Len(txt)-1) convertcap = FirstLetter & remaining End Function %>
|
|
|
*
|
|
*
|
|
*
|
|
*
|
|
* |
|
* |
|
* |
|
* |
|
* |
Medical Education
|