<%@Language=vbscript%>
<%
'=================================================================================//
' ISugest.com
' Edit Portfollio User's Profile
' Copyright 2006 ISugest.com
' Developed and Designed by DPITL
'=================================================================================//
'== check User's session
If session("USER_ID") = "" and session("STATUS")="" then
Response.Redirect("../../user_login/")
End if
if session("USER_TY") ="B" then
Response.Redirect("../../user_login/")
End if
Set objDataconn = Server.CreateObject("ADODB.connection")
objDataconn.Open Application("SERVICE_ConStr"),Application("SERVICE_RunUsr"),Application("SERVICE_PassWod")
Set objDatarecs = Server.CreateObject("ADODB.recordset")
strSQLR="SELECT USER_ID,PASSWD,FNAME,LNAME,COMPANY,STREET,CITY,STATE,OPT_STATE,COUNTRY,ZIP_CODE,FAX,TEL FROM TBLMAS_PORTFO_USERS WHERE USER_ID='"&session("USER_ID")&"' AND USER_TYPE='O' AND STATUS='Y'"
objDatarecs.Open strSQLR,objDataconn
If Not objDatarecs.EOF then
%>
Isugest.com - Place of Opportunity, Designers, Actors, Models, Writers, Portfolios
<%
Set objDatarecsa = Server.CreateObject("ADODB.recordset")
strSQLRa ="SELECT PORT_CATEGO FROM TBLMAS_PORTFO_CATEGOS WHERE USER_ID='"& session("USER_ID") &"'"
objDatarecsa.Open strSQLRa,objDataconn
While Not objDatarecsa.EOF %>
<% objDatarecsa.MoveNext
Wend
Else
Response.Redirect("../")
End if
%>
