<%@LANGUAGE="VBSCRIPT"%> <% ' *** Edit Operations: declare variables Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i MM_valUsername=CStr(Request.Form("txtUserName")) MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Redirect if username exists MM_flag="MM_insert" If (CStr(Request(MM_flag)) <> "") Then MM_dupKeyRedirect="newuserexist.asp" MM_rsKeyConnection=MM_users_STRING MM_dupKeyUsernameValue = CStr(Request.Form("txtUserName")) MM_dupKeySQL="SELECT username FROM useri WHERE username='" & MM_dupKeyUsernameValue & "'" MM_adodbRecordset="ADODB.Recordset" set MM_rsKey=Server.CreateObject(MM_adodbRecordset) MM_rsKey.ActiveConnection=MM_rsKeyConnection MM_rsKey.Source=MM_dupKeySQL MM_rsKey.CursorType=0 MM_rsKey.CursorLocation=2 MM_rsKey.LockType=3 MM_rsKey.Open If Not MM_rsKey.EOF Or Not MM_rsKey.BOF Then ' the username was found - can not add the requested username MM_qsChar = "?" If (InStr(1,MM_dupKeyRedirect,"?") >= 1) Then MM_qsChar = "&" MM_dupKeyRedirect = MM_dupKeyRedirect & MM_qsChar & "requsername=" & MM_dupKeyUsernameValue Response.Redirect(MM_dupKeyRedirect) End If MM_rsKey.Close End If %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) = "Form1") Then MM_editConnection = MM_users_STRING MM_editTable = "useri" MM_editRedirectUrl = "acc.asp" MM_fieldsStr = "txtFirstName|value|txtLastName|value|txtUserName|value|txtPassword|value|txtComp|value|txtCountry|value|txtCity|value|txtStr|value|txtState|value|txtZip|value|txtTel|value|txtMail|value" MM_columnsStr = "firstname|',none,''|lastname|',none,''|username|',none,''|psw|',none,''|company|',none,''|country|',none,''|city|',none,''|street_adr|',none,''|state|',none,''|zip|',none,''|tel|',none,''|mail|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Insert Record: construct a sql insert statement and execute it Dim MM_tableValues Dim MM_dbValues If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End If MM_tableValues = MM_tableValues & MM_columns(MM_i) MM_dbValues = MM_dbValues & MM_formVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Session("MM_Username") = MM_valUsername Response.Redirect(MM_editRedirectUrl) End If End If End If %> <% ' *** Validate request to log in to this site. MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString MM_valUsername=CStr(Request.Form("txtMailUser")) If MM_valUsername <> "" Then MM_fldUserAuthorization="" MM_redirectLoginSuccess="acc.asp" MM_redirectLoginFailed="loginerr.asp" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_users_STRING MM_rsUser.Source = "SELECT username, psw" If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM useri WHERE username='" & Replace(MM_valUsername,"'","''") &"' AND psw='" & Replace(Request.Form("txtPass"),"'","''") & "'" MM_rsUser.CursorType = 0 MM_rsUser.CursorLocation = 2 MM_rsUser.LockType = 3 MM_rsUser.Open If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %> New user registration
BluePink BluePink
XHost 		Servere virtuale de la 20 eur / luna. Servere dedicate de la 100 eur / luna - servicii de administrare si monitorizare incluse. Colocare servere si echipamente de la 75 eur / luna. Pentru detalii accesati site-ul BluePink.
 
Home About us Contact us
 
John Maritoni - New York
• 1200 USD Sony laptop
I was an internet fraud victim a few month ago and I stopped doing business on the internet... But now, this escrow company helped me get my confidence back. Lots of thanks!     read more..

Michael Dare- Iowa
• 650 Cannon camcorder
First, it was hard for me to understand how internet transaction works... Now, not only that I fully understood the system, but I enjoy doing safely business on the internet.     read more...
New Member Registration  

Please pay attention to the following things
In order to register as a new user, you have to fill in all the fields below, and then, after you make sure they are ok, press the "Submit" button.
The fields marked * are compelling. Please use the exact information that describes you, because it will be used later in all the transactions you make.
If the username alredy exists in our database, you will be returned to this page to enter another one.

First Name: *
Last Name: *
User Name: *
Password: *
Retype password: *
Company:
Country: *
City: *
Street, Address: *
State Code: *
Zip code: *
Telephone: *
E-mail: *
* are compelling

TraderOnline.com is the world's largest used vehicle classifieds service on the Internet.
TraderOnline.com ranks in the top 200 most highly-trafficked websites with over 7 million visitors viewing over 70 million pages each month.


Overnight or overseas, across borders or across town - you can "absolutely, positively" count on today's FedEx to deliver transportation and information solutions... and so much more. FedEx delivers in more ways to more places worldwide.

                            

Travelers Express/MoneyGram, the largest processor of money orders in the U.S. and an expanding global leader in the payment services.


UPS, or United Parcel Service Inc., is a global company with one of the most recognized and admired brands in the world.
HOME  |  ABOUT US  |  TERMS  |  FAQ  | FEES  |  E-OFFICER  |  PARTNERS  |  CONTACT US
Copyright © 1991-2003 TraderOnlineSafe Design. All rights reserved.