<% dim rs set rs = server.CreateObject("ADODB.Recordset") user = session("USERNAME") sqlstr ="SELECT * FROM tblUser where UserName ='" & user &"'" 'response.Write sqlstr 'response.End() rs.Open sqlstr,db %>
Fields marked with * are required
<% if request.QueryString("errmsg") = 1 then response.Write("This user already exits") end if %>
Password*
Email address *
Select Avatar <% Dim CompleteImagesFolderPath Dim FileSystemObject ImagesFolderPath = "avatars" CompleteImagesFolderPath = Server.MapPath(ImagesFolderPath) Set FileSystemObject = Server.CreateObject("Scripting.FileSystemObject") Set ImageFolder = FileSystemObject.GetFolder(CompleteImagesFolderPath) set Files = ImageFolder.Files %> <% if request.form("SelAvatar") <> "" then %> <% elseif (rs.Fields("AvtarImage") <> "") then %> <% end if %>
Signature
Always attach my signature to posts > Yes value="0" >No
Email on reply > Yes value="0" >No