<% @ Language=VBScript %> <% Option Explicit %> <% 'Vcshobbies offers sci-fi models science fiction models civil war miniatures collectables custom train layouts ironclad model ships miniature machine tools model trains plastic models resin model kits sherline cnc systems sherline lathes sherline mills taig lathes taig tools wedico wedico trucks wooden model ships '**************************************************************************************** '** Copyright Notice '** '** Web Wiz NewsPad(TM) '** http://www.webwiznewspad.com '** '** Copyright (C)2001-2007 Web Wiz(TM). All Rights Reserved. '** '** THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS UNDER LICENSE FROM 'WEB WIZ'. '** '** IF YOU DO NOT AGREE TO THE LICENSE AGREEMENT THEN 'WEB WIZ' IS UNWILLING TO LICENSE '** THE SOFTWARE TO YOU, AND YOU SHOULD DESTROY ALL COPIES YOU HOLD OF 'WEB WIZ' SOFTWARE '** AND DERIVATIVE WORKS IMMEDIATELY. '** '** If you have not received a copy of the license with this work then a copy of the latest '** license contract can be found at:- '** '** http://www.webwizguide.com/license '** '** For more information about this software and for licensing information please contact '** 'Web Wiz' at the address and website below:- '** '** Web Wiz, Unit 10E, Dawkins Road Industrial Estate, Poole, Dorset, BH15 4JD, England '** http://www.webwizguide.com '** '** Removal or modification of this copyright notice will violate the license contract. '** '**************************************************************************************** '*************************** SOFTWARE AND CODE MODIFICATIONS **************************** '** '** MODIFICATION OF THE FREE EDITIONS OF THIS SOFTWARE IS A VIOLATION OF THE LICENSE '** AGREEMENT AND IS STRICTLY PROHIBITED '** '** If you wish to modify any part of this software a license must be purchased '** '**************************************************************************************** 'Set the response buffer to true as we maybe redirecting Response.Buffer = True 'If new subscriptions are banned send the user away If blnAllowSubscription = False Then 'Reset Server Objects Call closeDatabase() 'Direct to not permitted page Response.Redirect("mailer/admin.asp") End If 'Declare variables Dim strEmail 'Holds the users e-mail address Dim strUserName 'Holds the members name Dim strPassword 'Holds the user password Dim blnHTMLformat 'Set to true if email is to be in HTML format Dim strMessage 'Holds the error message if the user is not entered into the database Dim strUserCode 'Holds a unique code for the new list member Dim blnEmailOK 'Set to true if the email address is valid Dim lngMemberID 'Holds the members ID number Dim laryCatID 'Holds the cat ID Dim blnChecked 'Set to true if the category checkbox is to be checked Dim blnEmailExists 'Set to true if the email address is already in the database Dim strSubject 'Holds the subject of te email Dim strEmailBody 'Holds the email body Dim strSaltValue 'Holds the salt value for ecrypted passwords Dim blnEmailBanned 'Holds if the email address or domain are banned Dim strCheckEmailAddress 'Holds the banned email address list to check Dim strBlockedEmailAddress 'Holds the blocked email address Dim blnFormOK 'Set to fales if the form has not been filed in correctly Dim strCompany 'Holds the name of the company Dim strAddress1 'Holds the users address Dim strAddress2 Dim strCity 'Holds the city Dim strCounty 'Holds sthe county Dim strCountry 'Holds the country Dim strPostcode 'Holds the postcode Dim blnUserCodeOK 'Initialise variables blnEmailOK = True blnEmailExists = false blnEmailBanned = false lngMemberID = 0 blnFormOK = true blnUserCodeOK = False 'Read in the email address strEmail = Trim(Mid(LCase(Request("email")), 1, 50)) 'Clean up the email address address getting rid of unwanted characters strEmail = characterStrip(strEmail) 'Read in the form details If Request.Form("postBack") Then 'Check to see if the user has entered an e-mail address and that it is a valid address If Len(strEmail) < 5 OR NOT Instr(1, strEmail, " ") = 0 OR InStr(1, strEmail, "@", 1) < 2 OR InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) Then 'Set an error message if the users has not enetered a valid e-mail address blnEmailOK = False 'Else the email address is OK Else blnEmailOK = True End If 'Read in the form details strUserName = removeAllTags(Trim(Mid(Request.Form("name"), 1, 25))) strPassword = removeAllTags(Trim(Mid(Request.Form("password"), 1, 25))) If blnPlainTextOption = true Then blnHTMLformat = CBool(Request.Form("HTMLformat")) Else blnHTMLformat = true 'If this is a long signup form read in the other form parts If blnLongSignUp Then strCompany = removeAllTags(Trim(Mid(Request.Form("company"), 1, 25))) strAddress1 = removeAllTags(Trim(Mid(Request.Form("address1"), 1, 25))) strAddress2 = removeAllTags(Trim(Mid(Request.Form("address2"), 1, 25))) strCity = removeAllTags(Trim(Mid(Request.Form("city"), 1, 25))) strCounty = removeAllTags(Trim(Mid(Request.Form("county"), 1, 25))) strCountry = removeAllTags(Trim(Mid(Request.Form("Country"), 1, 25))) strPostcode = removeAllTags(Trim(Mid(Request.Form("zip"), 1, 25))) 'See if data has been entered for everything If strCompany = "" OR strAddress1 = "" OR strAddress2 = "" OR strCity = "" OR strCounty = "" OR strCountry = "" OR strPostcode = "" Then blnFormOK = False End If 'See if data has been entered for everything If strEmail = "" OR strUserName = "" OR strPassword = "" Then blnFormOK = False 'Check to see if the email address or email domain entered is banned 'Initalise the strSQL variable with an SQL statement to query the database strSQL = "SELECT " & strDbTable & "EmailBanList.Email FROM " & strDbTable & "EmailBanList;" 'Query the database rsCommon.Open strSQL, adoCon 'If records are returned check-em out 'Loop through the email address and check 'em out Do while NOT rsCommon.EOF 'Read in the email address to check strCheckEmailAddress = rsCommon("Email") 'If a whildcard character is found then check that If Instr(1, strCheckEmailAddress, "*", 1) > 0 Then 'Remove the wildcard charcter from the email address to check strCheckEmailAddress = Replace(strCheckEmailAddress, "*", "", 1, -1, 1) 'If the banned email and the email entered match up then don't let em sign up If InStr(1, strEmail, strCheckEmailAddress, 1) Then blnEmailBanned = True strBlockedEmailAddress = rsCommon("Email") End If 'Else check the actual name doesn't match Else 'If the banned email and the email entered match up then don't let em sign up If strCheckEmailAddress = strEmail Then blnEmailBanned = True strBlockedEmailAddress = strCheckEmailAddress End If End If 'Move to the next record rsCommon.MoveNext Loop 'Close recordset rsCommon.Close End If 'If this is a post back run the add new or update code If Request.Form("postBack") AND blnEmailOK AND blnFormOK AND blnEmailBanned = false Then 'Create a unqiue user code DO WHILE blnUserCodeOK = False 'Create user code strUserCode = hexValue(32) 'Check if user code exsits blnUserCodeOK = checkUserCode(strUserCode) Loop 'Initalise the strSQL variable with an SQL statement to query the database strSQL = "SELECT " & strDbTable & "Members.* " & _ "FROM " & strDbTable & "Members " & _ "WHERE " & strDbTable & "Members.Email = '" & strEmail & "';" With rsCommon 'Set the cursor type property of the record set to Dynamic so we can navigate through the record set .CursorType = 2 'Set the Lock Type for the records so that the record set is only locked when it is updated .LockType = 3 'Query the database .Open strSQL, adoCon 'If a record is returned this email address is already in the database If NOT .EOF Then blnEmailExists = true 'If the email doesn't already exsist then enter the email into the database If blnEmailExists = False Then 'Encrypt password If blnEncryptPasswords Then 'generate a salt value strSaltValue = hexValue(8) 'Concatenate salt value to the password strPassword = strPassword & strSaltValue 'Encrypt the password strPassword = HashEncode(strPassword) End If 'Add new record to a new recorset .AddNew 'Set database fields .Fields("Email") = strEmail .Fields("Name") = strUserName .Fields("Password") = strPassword If blnEncryptPasswords Then .Fields("Salt") = strSaltValue .Fields("ID_Code") = strUserCode .Fields("Join_Date") = internationalDateTime(Now()) .Fields("HTML_format") = blnHTMLformat .Fields("Active") = strDBFalse 'If this is a long signup form read in the other form parts If blnLongSignUp Then .Fields("Company") = strCompany .Fields("Address1") = strAddress1 .Fields("Address2") = strAddress2 .Fields("City") = strCity .Fields("State") = strCounty .Fields("Country") = strCountry .Fields("Postcode") = strPostcode End If 'Update the database .Update 'Requery database to get the new id number .Requery 'Move to the last record .MoveLast 'Get the id number lngMemberID = CLng(.fields("Mail_ID")) End If 'Reset recordset variable .Close End With 'If the email doesn't already exsist then enter the categoriy details into the database If blnEmailExists = False Then 'Add the category details to the database For each laryCatID in Request.Form("catID") 'Add cat choices strSQL = "INSERT INTO " & strDbTable & "MemCat " & _ "(" & _ "Mail_ID, " & _ "Cat_ID " & _ ") " & _ "VALUES " & _ "('" & lngMemberID & "', " & _ "'" & CLng(laryCatID) & "' " & _ ")" 'Write to database adoCon.Execute(strSQL) Next 'If opt-in confirmation of account is enabled then get send an activation email If blnActivate Then 'Set the subject of the email strSubject = strWebsiteName & ": " & strTxtConformSubscription 'set the message body of the activation email strEmailBody = strTxtDear & " " & strUserName & "," & _ vbCrLf & vbCrLf & strTxtGreetingsFrom & " " & strWebsiteName & "." & _ vbCrLf & vbCrLf & strTxtWeReceivedYourRequestToSubscribe & " " & strWebsiteName & "." & _ vbCrLf & vbCrLf & strTxtToActivateYourSubscriptionClickTheAddressBelow & ":-" & _ vbCrLf & vbCrLf & strWebsiteAddress & "activate.asp?ID=" & strUserCode & _ vbCrLf & vbCrLf & strTxtIfYouDidNotSubscribe & "." & _ vbCrLf & vbCrLf & strTxtThankYouForYourInterest & "." & _ vbCrLf & vbCrLf & strSignature 'Send the e-mail using the Send Mail function created on the send_mail_function.inc file Call SendMail(strEmailBody, decodeString(strUserName), decodeString(strEmail), strWebsiteName, decodeString(strWebsiteEmailAddress), strSubject, strMailComponent, false) 'Clean up Call closeDatabase() 'Redirect to actiavtion page Response.Redirect("mailer/activate_confirm.asp?email=" & Server.URLEncode(strEmail)) End If 'Clean up Call closeDatabase() 'Redirect to actiavtion page Response.Redirect("mailer/activate.asp?ID=" & strUserCode) End If End If %> Vcshobbies offers sci-fi models science fiction models civil war miniatures collectables custom train layouts ironclad model ships miniature machine tools model trains plastic models resin model kits sherline cnc systems sherline lathes sherline mills taig lathes taig tools wedico wedico trucks wooden model ships
Vcshobbies offers sci-fi models science fiction models civil war miniatures collectables custom train layouts ironclad model ships miniature machine tools model trains plastic models resin model kits sherline cnc systems sherline lathes sherline mills taig lathes taig tools wedico wedico trucks wooden model shipsVCSHobbies About Us PageVCSHobbies Newsletter Sign up for special discounts and the latest model updatesVCSHobbies Modeller CommunityVCSHobbies Contact Us PageVCSHobbies Frequently Asked QuestionsVCSHobbies Shopping Cart


Join Our Mailing List
and Receive Exclusive
Offers and News!

Sign up for VCSHobbies Newsletter to recieve special discounts and the latest updates on new products!









Scale Model Railroads
















VCSHobbies customer feedback

VCSHobbies Golden Customer Support for Sherline, taig, Miniature machine tools, plastic models, Wedico Trucks

ScreenName: vcshobbies

Walthers model train dealer offering custom model railroad layouts, model trains and train accessories

Treat someone special with a VCSHobbies Gift Certificates

VCSHobbies.com is a MIG Productions Paint Dealer! Carrying Fantasy paint sets, volcanic ash, zombie green, rust & smoke pigment, sand & earth pigments and the Mig Urban combat paint set

 

Trucks

Conventional Truck Kits: 50/51/52

 

 

Complete Freightliner COE Kit: 56

 

Complete Peterbilt Kits: 41/42/43

Accessories

753 - Locking Different Metal 2:1 & 3:1 Rear Axle with Output

143 - Speed Controller, round tank 83mm Long

707 - Speed Controller and Dieselsound combination in a round track

796 - Electrical System "MF" for Trucks

768 - Locking different Metal 3:1 rear Axle without output

117 - Standard differential

115 - WEDICO-Buhler Motor, 12 V

270 - Gooseneck-dolly

735 - Professional. chassis 3-axle without Tank, Peterb. tractor with sleeper, rigid-t without Sleep.

276 - Clane body, US style, red chas. 736

736 - Professional. chassis 4-axle without Tank, 675mm

489 - Tank round, polished, 83mm long

771 - Charging cable with 6-pole plug

798 - Fuses for 796

700 - Aluminium fifthwheel

793 - Allround warning lamps

702 - Set of springs "NF"

453 - Wide tyres FULDA MULTITONN 2

720 - Mud guards, fitting profession, chassis

176 - NiCd battery pack 12 V / 1.5 Ah

155 - RC-Antenna

379 - Double fenders, checkers pla. Rear axle

152 - Drive shaft 13.78" long

512 - Alu rim set for driven rear axle

511 - Alu rim set, rear axle non driven

 

While Supplies Last!



Home
| About Us | Newsletter | Community | Contact Us | Facebook | Twitter | Youtube | Feedback | Newsletter Sign Up

Backyard Trucking

-Trucks
-Construction
-Accessories
-Electronics
-Chassis
-Bodies

Sherline Tools

-Lathes
-Mills
-Lathe Packages
-CNC Systems
-Ultimate Pckgs
-Lathe/Mill Accessories
-Scales
-Industrial Products
-Best Sellers
-Chucks
-Rotary Tables

Taig Tools

-Lathes
-Mills
-Accessories
-CNC Mills

Sci-Fi & Fantasy

-Nautilus
-Monster Scenes
-Star Trek Models
-Movie Models
-2001 Space Odyssey Models
-Voyage to the Bottom of the Sea
-Lost In Space
-Other Models

Collectibles

-LOR
-Star Wars
-Marvel

Figure Models

-Flintbone
-Mojo Resin
-Accessories
-Other Models

Magazines

-Sci-Fi Modeller
-Kitbuilders
-Amazing Figure Modeler
-PreHistoric Times
-Historical Miniatures
-Robot Magazine
-Truck Model World
-Military in Scale
-Model Helicopter
-Marine Modeling
-Jet magazine

Civil War Models

-Ironclads
-Ships
-Civil War Artillery
-Submarines
-Military Miniatures

 

R/C

-Radios
-Servos

-Airplanes
-Helicopters
-Construction
-Military
-Accessories
-Cars
-Boats
-Ships
-Submarines
-EDFs

 

Lighting Kits

Wooden Ships Plastic Models Steam Engines Robots Dinosaur Models Model Rockets Female Models Modeling Supplies

Copyright © 2009 VCSHobbies.com - All rights reserved. 

All prices are subject to change without prior notice.
All prices shown in US Dollars. 

Nothing on this website may be copied
without written permission from VCSHobbies.com


Website Design & Web Hosting by Vanguard Computers