<%@ language="vbscript" codepage="1252"%> <% 'Get Page Meta Information Page_Content_Meta_Query = "Page_Content_ID_Get 0" %> <% if session("User") <> "" and session("Password") <> "" then 'Check User Exists Dim User_SQL, User_SQL_Result User_SQL = "Select * from Site_Users where Username = '" & session("User") & "' and Password = '" & session("Password") & "' " Set User_SQL_Result = Server.CreateObject("ADODB.Recordset") Call User_SQL_Result.Open(User_SQL, objConn) UserExists = 0 Do Until User_SQL_Result.EOF UserExists = 1 Subscribe = User_SQL_Result("Subscribe") User_ID = User_SQL_Result("Site_User_ID") session("User_ID") = User_ID Subscribe_ID = User_SQL_Result("Subscribe") session("Subscribe_ID") = Subscribe_ID User_SQL_Result.movenext Loop If UserExists = 1 then response.redirect "login.asp" End if end if %>
Login

User
Password
<% pos = instr(siteName,"Tourist") pos = pos - 2 statename = left(siteName,pos) %>
Benefits of having an account here:
  • My Travel Ideas - Save your travel ideas for later reference
  • Newsletter - get new ideas, hot deals and other info on travel and touring in <%=statename%>
  • Discounts - Discounts on some of the hotels, restaurants and attractions featured on the site
Register Now
User ID

(We never sell or use your email without explicit permission. Privacy Policy)

Choose Password

Confirm Password

Add me to your newsletter (you can unsubscribe at any time)