<% Id = request("Id") Set objrs = Server.CreateObject("ADODB.Recordset") 'Establish what records you want selected for the SQL query string SQL = "Select * From TblLogin where LoginId = " & Id 'Set the recordset object equal to the SQL query string objRS.Open SQL, objADO, 1, 3 %>

BAND PICTURE UPLOAD

Pictures display best when uploaded at 150 X 150.

<% if WarningErrMsg <> "" then %>
Error(s):<%= warningErrMsg %>
<% end if %>
<%If Len(objrs("Picture1")) > 0 Then %> <%If UCase(Left(objrs("Picture1"),7))="HTTP://" Then%> " border="0"> <%Else%> " border="0" width="200" height="200"> <%End If %> <%End If%> <%If Len(objrs("Picture2")) > 0 Then %> <%If UCase(Left(objrs("Picture2"),7))="HTTP://" Then%> " border="0"> <%Else%> " border="0" width="200" height="200"> <%End If %> <%End If%>
<%If Len(objrs("Picture3")) > 0 Then %> <%If UCase(Left(objrs("Picture3"),7))="HTTP://" Then%> " border="0"> <%Else%> " border="0" width="200" height="200"> <%End If %> <%End If%> <%If Len(objrs("Picture4")) > 0 Then %> <%If UCase(Left(objrs("Picture4"),7))="HTTP://" Then%> " border="0"> <%Else%> " border="0" width="200" height="200"> <%End If %> <%End If%>
<%If Len(objrs("Picture5")) > 0 Then %> <%If UCase(Left(objrs("Picture5"),7))="HTTP://" Then%> " border="0"> <%Else%> " border="0" width="200" height="200"> <%End If %> <%End If%> <%If Len(objrs("Picture6")) > 0 Then %> <%If UCase(Left(objrs("Picture6"),7))="HTTP://" Then%> " border="0"> <%Else%> " border="0" width="200" height="200"> <%End If %> <%End If%>
<% Err.Clear On Error Resume Next Set objJMail = Server.CreateObject("AspImage.Image") Response.Write "Image 1:
" & vbCrLf Response.Write "Image 2:
" & vbCrLf Response.Write "Image 3:
" & vbCrLf Response.Write "Image 4:
" & vbCrLf Response.Write "Image 5:
" & vbCrLf Response.Write "Image 6:
" & vbCrLf If Err.Number <> 0 Then%> <%End If%>