<%@ LANGUAGE="VBSCRIPT" %>
<%
'Dim userid
Set UserServ = Server.CreateObject("DbComp.UserServices")
if Session("auth") = 0 then Response.Redirect "userlogin.asp?url=" & Server.URLEncode(Request.ServerVariables("url") & "?" & Request.QueryString & "&" & Request.Form)
Set ResAuth = Session("ResAuth")
'userid = Session("userid")
UserServ.SetSession ResAuth
Message = ""
Select Case Request("method")
Case "ChangePassword"
ChangePassword Session("Operator")
Case "ChangeProfile"
Message = "Profile changed successfully"
End Select
%>
<%
Sub ChangePassword(username)
UserServ.ChangePassword Request("old"), Request("new"), Request("confirm")
Message = ""
If UserServ.ErrorCode <> 0 Then
Message = "Can't change password"
Else
Message = "Password changed successfully"
End If
End Sub
%>
Welcome to Tilifon
<%If Message <> "" Then
Response.Write Message
ElseIf Request("purchase")="ok" Then
Response.Write "Thank you for your purchase"
Else
Response.Write "Welcome " & Session("operator")
End If%>
!
Excellent
Quality And Cheap Rate.
Privacy
Statement
