<% 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 %>

SELLER PICTURE UPLOAD

Pictures display best when uploaded at 150 X 150.

<% if WarningErrMsg <> "" then %>

Error(s):<%= warningErrMsg %>

<% end if %> ">

<%If Len(objrs("AgentPicture")) > 0 Then If UCase(Left(objrs("AgentPicture"),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: " & vbCrLf If Err.Number <> 0 Then%> <%End If%>