<% %> <% FUNCTION CheckString (s, endchar) pos = InStr(s, "'") While pos > 0 s = Mid(s, 1, pos) & "'" & Mid(s, pos + 1) pos = InStr(pos + 2, s, "'") Wend CheckString="'" & s & "'" & endchar END FUNCTION If Request("salespers") <> "" then Session("salespers") = Request("salespers") salespers = Request("salespers") else salespers = Session("salespers") end if If Request("payinfo") <> "" then Session("payinfo") = Request("payinfo") payinfo = Request("payinfo") else payinfo = Session("payinfo") end if If Request("sendmeth") <> "" then Session("sendmeth") = Request("sendmeth") sendmeth = Request("sendmeth") else sendmeth = Session("sendmeth") end if If Request("fname") <> "" then Session("fname") = Request("fname") fname = Request("fname") else fname = Session("fname") end if If Request("lname") <> "" then Session("lname") = Request("lname") lname = Request("lname") else lname = Session("lname") end if If Request("company") <> "" then Session("company") = Request("company") company = Request("company") else company = Session("company") end if If Request("addr1") <> "" then Session("addr1") = Request("addr1") addr1 = Request("addr1") else addr1 = Session("addr1") end if If Request("addr2") <> "" then Session("addr2") = Request("addr2") addr2 = Request("addr2") else addr2 = Session("addr2") end if If Request("city") <> "" then Session("city") = Request("city") city = Request("city") else city = Session("city") end if If Request("state") <> "" then Session("state") = Request("state") state = Request("state") else state = Session("state") end if If Request("zip") <> "" then Session("zip") = Request("zip") zip = Request("zip") else zip = Session("zip") end if dim region If Request("region") <> "" then Session("region") = Request("region") region = Request("region") else region = Session("region") if region = "" then else region1 = Split(region, ",", 2) region2 = region1(0) end if end if if Session("region") = "Grants Pass" then ISPPhoneNumber = "471-7012" ISPAreaCode = "541" elseif Session("region") = "Azalea" then ISPPhoneNumber = "837-3434" ISPAreaCode = "541" elseif Session("region") = "Medford" then ISPPhoneNumber = "608-7421" ISPAreaCode = "541" end if If Request("HomeAreac") <> "" then Session("HomeAreac") = Request("HomeAreac") HomeAreac = Request("HomeAreac") else HomeAreac = Session("HomeAreac") end if If Request("HomeExch") <> "" then Session("HomeExch") = Request("HomeExch") HomeExch = Request("HomeExch") else HomeExch = Session("HomeExch") end if If Request("HomeLast4") <> "" then Session("HomeLast4") = Request("HomeLast4") HomeLast4 = Request("HomeLast4") else HomeLast4 = Session("HomeLast4") end if If Request("WorkAreac") <> "" then Session("WorkAreac") = Request("WorkAreac") WorkAreac = Request("WorkAreac") else WorkAreac = Session("WorkAreac") end if If Request("WorkExch") <> "" then Session("WorkExch") = Request("WorkExch") WorkExch = Request("WorkExch") else WorkExch = Session("WorkExch") end if If Request("WorkLast4") <> "" then Session("WorkLast4") = Request("WorkLast4") WorkLast4 = Request("WorkLast4") else WorkLast4 = Session("WorkLast4") end if If Request("FAXAreac") <> "" then Session("FAXAreac") = Request("FAXAreac") FAXAreac = Request("FAXAreac") else FAXAreac = Session("FAXAreac") end if If Request("FAXExch") <> "" then Session("FAXExch") = Request("FAXExch") FAXExch = Request("FAXExch") else FAXExch = Session("FAXExch") end if If Request("FAXLast4") <> "" then Session("FAXLast4") = Request("FAXLast4") FAXLast4 = Request("FAXLast4") else FAXLast4 = Session("FAXLast4") end if If Request("login") <> "" then Session("login") = Request("login") login = Request("login") & "@roguelink.net" else login = Session("login") & "@roguelink.net" end if if Session("login") = "" then email = "username@roguelink" Session("email") = Session("login") else email = Session("login") & "@roguelink.net" end if If Request("accounttype") <> "" then Session("accounttype") = Request("accounttype") accounttype = Request("accounttype") else accounttype = Session("accounttype") end if If Request("systemtype") <> "" then Session("systemtype") = Request("systemtype") systemtype = Request("systemtype") else systemtype = Session("systemtype") end if If Request("modemspeed") <> "" then Session("modemspeed") = Request("modemspeed") modemspeed = Request("modemspeed") else modemspeed = Session("modemspeed") end if If Request("netsoftware") <> "" then Session("netsoftware") = Request("netsoftware") netsoftware = Request("netsoftware") else netsoftware = Session("netsoftware") end if If Request("payperiod") <> "" then Session("payperiod") = Request("payperiod") payperiod = Request("payperiod") else payperiod = Session("payperiod") end if If Request("ccard") <> "" then Session("ccard") = Request("ccard") ccard = Request("ccard") else ccard = Session("ccard") end if If Request("cardnum") <> "" then Session("cardnum") = Request("cardnum") cardnum = Request("cardnum") else cardnum = Session("cardnum") end if If Request("cardexpmonth") <> "" then Session("cardexpmonth") = Request("cardexpmonth") cardexpmonth = Request("cardexpmonth") else cardexpmonth = Session("cardexpmonth") end if If Request("cardexpyear") <> "" then Session("cardexpyear") = Request("cardexpyear") cardexpyear = Request("cardexpyear") else cardexpyear = Session("cardexpyear") end if cardexp = cardexpmonth & cardexpyear 'If Request("cardexp") <> "" then ' Session("cardexp") = Request("cardexp") ' cardexp = Request("cardexp") 'else ' cardexp = Session("cardexp") 'end if if Request("cardname") <> "" then Session("cardname") = Request("cardname") cardname = Request("cardname") else cardname = Session("cardname") end if if Request("Action") = " Next " then Page = Request("Next") elseif Request("Action") = " Back " then Page = Request("Prev") elseif Request("Action") = " Cancel " then Page = Request("Cancel") elseif Request("Action") = " Name and Address " then Page = Request("Next") elseif Request("Action") = " Phone Number " then Page = Request("Next") elseif Request("Action") = " Account Information " then Page = Request("Next") elseif Request("Action") = " Computer Information " then Page = Request("Next") elseif Request("Action") = " Payment Method " then Page = Request("Next") elseif Request("Action") = "Submit" then Page = Request("Next") elseif Request("Action") = " Cancel the Signup " then Page = Request("Cancel") elseif Request("Action") = " CheckCC " then if IsValidCreditCardNumber(cardnum, ccard) = False then Page = "BadCC" else if IsValidExpDate(cardexp) = False then Page = "BadCC" else if IsValidCardName(ccard) = False then Page = "BadCC" else Page = Request("Next") end if end if end if elseif Request("Action") = " Cancel My Sign-Up " then Response.redirect "http://www.Roguelink.net/" & Request("Cancel") else Page = "Page1" end if '%Create the 6 Digit Random Password If Session("password") = "" then Randomize FirstDigit = Int((122 - 40 + 1) * Rnd + 40) FirstDigit = Chr(FirstDigit) SecondDigit = Int((122 - 40 + 1) * Rnd + 40) SecondDigit = Chr(SecondDigit) ThridDigit = Int((122 - 40 + 1) * Rnd + 40) ThridDigit = Chr(ThridDigit) FourthDigit = Int((9 - 0 + 1) * Rnd + 0) FifthDigit = Int((9 - 0 + 1) * Rnd + 0) SixthDigit = Int((9 - 0 + 1) * Rnd + 0) password = FirstDigit & SecondDigit & ThridDigit & FourthDigit & FifthDigit & SixthDigit Session("password") = password else password = Session("password") end if Select Case Page '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '% BEGIN PAGE 1 '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Case "Page1" '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %> Roguelink

web mailsearchshopsign up
welcome to roguelink

search
new users
services
online payments
tech support
contact us
home
news and weather
ecommerce
Welcome to Roguelink Internet Sign-up page!
Use this page to sign-up for an Internet account with Roguelink.
To setup your Roguelink account, you will be asked for the following information

  1. Name and Address
  2. Telephone Number
  3. Desired User Name and Account Type
  4. Technical Information about your Computer
  5. Method of Payment
Upon completion of the next series of screens you will be allowed to review what you typed and make any necessary changes. When you're finished click the "Submit" button on the final page and the sign-up process will be complete.
At the end of the sign-up process, you can choose to configure your
IBM compatible machine automatically and connect to Roguelink immediately!
Access your new mail. Please click "Next" to continue....
<% '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '% END PAGE 1 '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '% BEGIN PAGE 2 '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Case "Page2" '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %> Personal Identification

web mailsearchshopsign up
welcome to roguelink

search
new users
services
online payments
tech support
contact us
home
news and weather
ecommerce
User Identification

Please type your name and address in the space provided.

This information is necessary for processing your sign-up information and will be kept confidential.

First Name
Last Name
Address


City
State

Zip / Postal Code
Please pick the town that you are located closest to.
If you don't know your dialup number, Please click to know it
<% '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '% END PAGE 2 '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '% BEGIN PAGE 3 '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Case "Page3" '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %> <% If region = "" Then %> <% Else %> Dial Up Access

web mailsearchshopsign up
welcome to roguelink

search
new users
services
online payments
tech support
contact us
home
news and weather
ecommerce
Phone Number

Please type your phone number in the space provided.

This information is needed to verify your account, and will be kept confidential.

Home Phone Number(This is the only required phone number)
() -

Work Phone Number
() -

FAX Phone Number
() -

<% End If %> <% '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '% END PAGE 3 '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '% BEGIN PAGE 4 '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Case "Page4" '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %> Account Information

web mailsearchshopsign up
welcome to roguelink

search
new users
services
online payments
tech support
contact us
home
news and weather
ecommerce
Account Information

Please enter the user name you'd like to use here, and choose the type of account you would like.

What would you like your user name to be ?
Example: The first letter of the first name and your last name can be used
or you can just be creative (maximum of 12 characters)
<% 'Scott added this on 8/11/99 to fix the .net not showing up sometimes. If InStr(email,".net") > 0 Then StrEmail = email Else StrEmail = email & ".net" End If %> Your e-mail address will look like: <%= StrEmail %>

Type of Dial Up Account.
Interested in more speed?
Upgrade your account to our ClearWire Wireless Broadband by calling (541) 471-0457
<% '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '% END PAGE 4 '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '% BEGIN CheckLogin '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Case "CheckLogin" '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %> <% If accounttype = "" Then %> Oops!You forgot to select an account type! Please hit the back button on your browser and try again. <% Else %> <% response.write (request.form("login") & request.form("liste")) Set checklogin_conn = Server.CreateObject("ADODB.Connection") checklogin_conn.Open "DSN=emerald", "sa", "!60740EU" checklogin_sql = "SELECT Login" checklogin_sql = checklogin_sql & " FROM SubAccounts " checklogin_sql = checklogin_sql & " WHERE (Login = " checklogin_sql = checklogin_sql & "'" & login & "'" checklogin_sql = checklogin_sql & ")" Set checklogin_rs = Server.CreateObject("ADODB.Recordset") checklogin_rs.Open checklogin_sql, checklogin_conn, 3, 3 Set Executor = Server.CreateObject("ASPExec.Execute") 'Executor.Application = "cmd /c d:\ASP_Scripts\signup_scott\check.bat" Executor.Parameters = login strResult = Executor.ExecuteDosApp 'Response.write(strResult) 'Response.write(inStr(strResult, "ERR")) Set Executor2 = Server.CreateObject("ASPExec.Execute") 'Executor2.Application = "cmd /c d:\ASP_Scripts\signup_scott\checkAlias.bat" Executor2.Parameters = login strResult2 = Executor2.ExecuteDosApp 'Response.write(strResult2) 'Response.write(inStr(strResult2, login&"=")) %> <% if checklogin_rs.RecordCount = adUnknown And login <> "" and inStr(strResult, "ERR") = 1 and inStr(strResult2, login&"=") =0 Then Response.write"Dial Up Information" else Response.write"Error Dial Up User Name already used !" end if %>
<% if checklogin_rs.RecordCount = adUnknown And login <> "" and inStr(strResult, "ERR") = 1 and inStr(strResult2, login&"=") =0 then Response.write"User Name" else Response.write"Please choose another user name" end if %>
<% if checklogin_rs.RecordCount = adUnknown And login <> "" and inStr(strResult, "ERR") = 1 and inStr(strResult2, login&"=") =0 then Response.write"User Name Information

" else Response.write"The username you chose is already used.

" end if %> <% if checklogin_rs.RecordCount = adUnknown And login <> "" and inStr(strResult, "ERR") = 1 and inStr(strResult2, login&"=") =0 then Response.write" This is information for your Dial Up Account. " Response.write"This information will be pre-configured at the end of this sign-up, " Response.write"however, you should take a moment now to write this info down or print this page " Response.write"and put it in a safe spot. If you ever have a problem connecting, " Response.write"the first thing technical support will ask for is your user name.

" Response.write" Your E-mail name and password will be the same as your dial up name and password. " else Response.write" We are sorry, but the user/login name you have chosen" Response.write" is already in use by another Roguelink customer. " Response.write"Please enter a new user name in the " & Chr(34) & "user/login name" & Chr(34) & " box beside here. " end if %>

<% if checklogin_rs.RecordCount = adUnknown And login <> "" and inStr(strResult, "ERR") = 1 and inStr(strResult2, login&"=") =0 then Response.write"" Response.write" " Response.write" " Response.write" " Response.write" " Response.write" " Response.write" " Response.write" " Response.write" " Response.write" " Response.write" " Response.write" " Response.write" " Response.write" " Response.write" " Response.write" " Response.write" " Response.write" " Response.write" " Response.write"
Your dial up user/login name will be:" & login & "
Your dial up password will be:" & password & "
Your e-mail address will be:" & email & "
Note: Your email account will be activated within 1 business day after your dialup account is established.
" Response.write"

" Response.write"

" Response.write"
" Response.write"" Response.write"" else do while Not checklogin_rs.eof checklogin_rs.MoveLast ErrorLoginName = "

Please choose another user/login name.

" & Chr(34) & checklogin_rs.Fields("Login").Value & Chr(34) & " has already been taken.

" Response.write ErrorLoginName checklogin_rs.MoveNext loop Response.write"" Response.write"" Response.write"What would your next choice for a user/login name be?

" Response.write"

" Response.write"

" Response.write"" Response.write"" Response.write"" end if checklogin_rs.Close checklogin_conn.Close %>

<% End If %> <% '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '% END CheckLogin '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '% BEGIN PAGE 5 '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Case "Page5" '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %> <% Set emerald = Server.CreateObject("ADODB.Connection") emerald.Open "DSN=68.185.17.143","onlineasp", "ok4asp!" Set SystemRS = emerald.execute("select systemtype from systemtypes") Set ModemRS = emerald.execute("select modemspeed from modemspeeds") Set SoftRS = emerald.execute("select netsoftware from netsoftwares") %> Technical Information

web mailsearchshopsign up
welcome to roguelink

search
new users
services
online payments
tech support
contact us
home
news and weather
ecommerce
Computer
Technical Information

This section is designed to give Roguelink's technical support team some information about your computer.

The information provided here will be used in future technical support calls that you may place.

Please try to fill in as much of this as you can. If you can't find the answer to a question please select "UnKnown". You may be asked at a later date to try to find this information so that we may better support you.

Which Operating System do you use ?

What is your modem's speed?

What type of internet browser are you using?
Tip: IE means Internet Explorer. For example, if you use Internet Explorer version 4, you should select IE4.x. If you don't know, just select Unknown.

<% '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '% END PAGE 5 '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '% BEGIN PAGE 6 '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Case "Page6" '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %> <% If systemtype = "" Then %> Oops!You forgot to select which Operating System you are using. If your Operating System is not listed, or you do not know what Operating System you are using, please call (541) 471-0052 for assistance. <% ElseIf modemspeed = "" Then %> Oops!You forgot to select what speed your modem is. If you do not know your modem speed, please call (541) 471-0052 for assistance. <% ElseIf netsoftware = "" Then %> Oops!You forgot to select which Browser you are using. If your browser is not listed, or you do not know which browser you are using, please call (541) 471-0052 for assistance. <% Else %> Billing Information

web mailsearchshopsign up
welcome to roguelink

search
new users
services
online payments
tech support
contact us
home
news and weather
ecommerce
Payment
Billing Information

Please enter your Credit Card type here. Then enter the number of the Credit Card in the space named "Card number". Also enter the Expiration Date of the card in the "Expiration Date" fields. If the date of the card can not be matched to the dates here, then please call our technical support line. The Name on the Credit Card should be in the "Name on card" field.

What would you like your Billing Period to be?

How would you like to receive your invoice ?
Note: An additional charge will be incurred for postal mail invoices to cover mailing costs

Type of credit card
Card number Expiration Date
<% thisYear = Year(Now) nextYear = thisYear + 1 TwoYearsFromNow = nextYear + 1 ThreeYearsFromNow = TwoYearsFromNow + 1 FourYearsFromNow = ThreeYearsFromNow + 1 FiveYearsFromNow = FourYearsFromNow + 1 %>
Name on card
Address on card (if different than yours)
Note: By submitting this information, you are verifying that you have read and agreed to the Roguelink Subscription Agreement and that you agree to pay all charges applied by Roguelink in connection with your use of Roguelink Service to the credit card identified above in accordance with the card issuer agreement.

Click on "CheckCC to continue"
<% End IF %> <% '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '% END PAGE 6 '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '% BEGIN PAGE BadCC '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Case "BadCC" '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %> Bad Credit Card Information

web mailsearchshopsign up
welcome to roguelink

search
new users
services
online payments
tech support
contact us
home
news and weather
ecommerce
Credit Card <% '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '% END BadCC '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '% BEGIN PAGE 7 '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Case "Page7" '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %> <% If sendmeth = "" Then %> Oops!You forgot to select how you would like to recieve your invoice! Please click the back button on your browser and try again. <% ElseIf payperiod = "" Then %> Oops!You forgot to select a billing period! Please click the back button on your browser and try again. <% Else %> Internet Account Summary
Credit Card Information

You have entered invalid credit card information. Please check your Credit Card and re-enter the information.

<% if IsValidCardName(ccard) = False then Response.write "" & MessageText & "
" Response.write "Please choose a valid credit card type.

" end if if IsValidExpDate(cardexp) = False then Response.write "" & MessageText & "
" Response.write "Please re-enter the expiration date.

" end if if IsValidCreditCardNumber(cardnum, ccard) = False then Response.write "" & MessageText & "
" Response.write "Please re-enter the credit card number.

" end if %>

Type of credit card
Card number Expiration Date
<% thisYear = Year(Now) nextYear = thisYear + 1 TwoYearsFromNow = nextYear + 1 ThreeYearsFromNow = TwoYearsFromNow + 1 FourYearsFromNow = ThreeYearsFromNow + 1 FiveYearsFromNow = FourYearsFromNow + 1 %>
Name on card
Address on card (if different than yours)
Note: By submitting this information, you agree to pay all charges applied by Roguelink in connection with your use of Roguelink Service to the credit card identified above in accordance with the card issuer agreement.

web mailsearchshopsign up
welcome to roguelink

search
new users
services
online payments
tech support
contact us
home
news and weather
ecommerce
Summary
Review your account information

Please take a minute to review your account information, to make sure everything is correct.

To make changes, click the button for the section you want to modify.

Click "Submit" to send your account information to Roguelink and complete the sign-up process.


First Name:

<% = fname %>

Last Name:

<% = lname %>

Address:

<% = addr1 %>
<% = addr2 %>

City:

<% = city %>

State:

<% = state %>

Zip Code:

<% = zip %>
You will be dialing into our <% = region2 %> location.
The phone number your computer will dial is: (<% = ISPAreaCode %>) <% = ISPPhoneNumber %>


<%if WorkAreac = "" _ then Response.write "" else Response.write "" & Chr(10) _ & "" & Chr(10) _ & "" & Chr(10) _ & "" & Chr(10) _ & "" & Chr(10) _ & "" end if %> <%if FAXAreac = "" _ then Response.write "" else Response.write ""& Chr(10) _ & "" & Chr(10) _ & "" & Chr(10) _ & "" & Chr(10) _ & "" & Chr(10) _ & "" end if %>
Home Phone Number: (<% = HomeAreac %>) <% = HomeExch %>- <% = HomeLast4 %>
Work Phone Number: (" & WorkAreac & ")" & WorkExch & "-" & WorkLast4 & "
FAX Phone Number: (" & FAXAreac & ")" & FAXExch & "-" & FAXLast4 & "

<% if login = "" then Response.write "" else Response.write ""& Chr(10) _ & "" & Chr(10) _ & "" & Chr(10) _ & "" end if %>
Chosen user/login name: <% = login %>
Your e-mail address will be : <%= email %>
Your password for BOTH e-mail and user/login name will be : " & password & "
The dial up account type chosen: <% = accounttype%> Abbreviated


<% if systemtype = "other" then response.write "" end if %> <% if modemspeed = "other" then response.write "" end if %> <% if netsoftware = "other" then response.write "" end if %>
Processor Type: <% = systemtype %>
 Other Type:  " & systemtypeother & "
Modem Speed: <% = modemspeed %>
 Other Type:  " & modemspeedother & "
System or Internet Bowser Type: <% = netsoftware %>
 Other Type:  " & netsoftwareother & "


Chosen Billing Period: <% = payperiod %>
Chosen Credit Card: <%if ccard = "Unknown Card Type" then response.write "Please Choose your Credit Card" else response.write ccard %> Abbreviated
Credit Card Number: <% = cardnum %>
Credit Card Expiration Date: <% = cardexp %>
Name on this Credit Card: <% = cardname %>
Address on the Credit Card (if different than yours) <% = payinfo %>
<% End If %> <% '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '% END PAGE 7 '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '% BEGIN PAGE CancelPage '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Case "CancelPage" '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Session.Abandon Response.Redirect("http://www.Roguelink.net") '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '% END CancelPage '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '% BEGIN Finish '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Case "Finish" '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '% Perform Data Validation '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% if fname = "" or _ sendmeth = "" or _ lname = "" or _ addr1 = "" or _ city = "" or _ state = "" or _ zip = "" or _ HomeAreac = "" or _ HomeExch = "" or _ HomeLast4 = "" or _ ccard = "" or _ ccard = "Unknown Card Type" or _ cardnum = "" or _ cardexp = "" or _ cardname = "" _ then %> Error

web mailsearchshopsign up
welcome to roguelink

search
new users
services
online payments
tech support
contact us
home
news and weather
ecommerce
Warning !
Error !

An error has occured.

An error has occured when you clicked on the "Submit" button. There are two possible reasons :
  • Your submission has already been registered. You can now go back to Roguelink homepage.
  • You did not fill all the required fields. Click on the "Back" button and check your submission information.
<% else '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '% Insert the Information into the Database '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% if salespers="" then salespers="Signup Server" end if if isNumeric(sendmeth) then sendmeth = cint(sendmeth) end if Set insert_conn = Server.CreateObject("ADODB.Connection") insert_conn.Open "DSN=68.185.17.143", "onlineasp", "ok4asp!" insert_sql = "INSERT INTO MasterAccounts " insert_sql = insert_sql & "(active, " insert_sql = insert_sql & "firstname, " insert_sql = insert_sql & "lastname, " insert_sql = insert_sql & "address1," insert_sql = insert_sql & "address2, " insert_sql = insert_sql & "city, " insert_sql = insert_sql & "state, " insert_sql = insert_sql & "zip, " insert_sql = insert_sql & "phonehome, " insert_sql = insert_sql & "phonework, " insert_sql = insert_sql & "phonefax, " insert_sql = insert_sql & "PayMethod, " insert_sql = insert_sql & "creditcardnumber, " insert_sql = insert_sql & "creditcardexpire, " insert_sql = insert_sql & "creditcardauth, " insert_sql = insert_sql & "GroupID, " insert_sql = insert_sql & "PayPeriod, " insert_sql = insert_sql & "Region, " insert_sql = insert_sql & "Extension, " insert_sql = insert_sql & "SalesPerson, " insert_sql = insert_sql & "LastModifyUser," insert_sql = insert_sql & "PayInfo," insert_sql = insert_sql & "SendMethod, " insert_sql = insert_sql & "BillingCycleID, " insert_sql = insert_sql & "BilledThru" insert_sql = insert_sql insert_sql = insert_sql & ") " insert_sql = insert_sql & "VALUES(" insert_sql = insert_sql & "-1, " insert_sql = insert_sql & CheckString(fname,",") insert_sql = insert_sql & CheckString(lname,",") insert_sql = insert_sql & CheckString(addr1,",") insert_sql = insert_sql & CheckString(addr2,",") insert_sql = insert_sql & CheckString(city,",") insert_sql = insert_sql & CheckString(state,",") insert_sql = insert_sql & CheckString(zip,",") insert_sql = insert_sql & "'" & HomeAreac & "-" & HomeExch & "-" & HomeLast4 & "'," if WorkAreac = "" _ then insert_sql = insert_sql & "' ', " else insert_sql = insert_sql & "'" & WorkAreac & "-" & WorkExch & "-" & WorkLast4 & "'," end if if FAXAreac = "" _ then insert_sql = insert_sql & "' ', " else insert_sql = insert_sql & "'" & FAXAreac & "-" & FAXExch & "-" & FAXLast4 & "'," end if CurrentDate = Date insert_sql = insert_sql & "'Credit Card'," insert_sql = insert_sql & CheckString(cardnum,",") insert_sql = insert_sql & CheckString(cardexp,",") insert_sql = insert_sql & CheckString(cardname, ",") insert_sql = insert_sql & "1, " insert_sql = insert_sql & CheckString(payperiod, ",") insert_sql = insert_sql & CheckString(region, ",") insert_sql = insert_sql & "10, " insert_sql = insert_sql & CheckString(salespers, ",") insert_sql = insert_sql & CheckString(salespers, ",") insert_sql = insert_sql & CheckString(payinfo, ",") insert_sql = insert_sql & sendmeth & ", " insert_sql = insert_sql & "1, " insert_sql = insert_sql & "'" & CurrentDate & "'" insert_sql = insert_sql & ")" 'Response.write insert_sql Set insert_RS = insert_conn.Execute(insert_sql) insert_conn.Close Set getcustid_conn = Server.CreateObject("ADODB.Connection") getcustid_conn.Open "DSN=68.185.17.143", "onlineasp", "ok4asp!" getcustid_sql = "SELECT CustomerID" getcustid_sql = getcustid_sql & " FROM MasterAccounts " getcustid_sql = getcustid_sql & " WHERE (FirstName=" getcustid_sql = getcustid_sql & "'" & fname & "'" getcustid_sql = getcustid_sql & " AND LastName=" getcustid_sql = getcustid_sql & "'" & lname & "'" getcustid_sql = getcustid_sql & " AND Address1=" getcustid_sql = getcustid_sql & "'" & addr1 & "'" getcustid_sql = getcustid_sql & " AND Region=" getcustid_sql = getcustid_sql & "'" & region & "'" getcustid_sql = getcustid_sql & " AND PhoneHome=" getcustid_sql = getcustid_sql & "'" & HomeAreac & "-" & HomeExch & "-" & HomeLast4 & "'" getcustid_sql = getcustid_sql & " AND SalesPerson =" getcustid_sql = getcustid_sql & "'" & salespers & "'" getcustid_sql = getcustid_sql & ")" 'Response.write getcustid_sql Set getcustid_rs = Server.CreateObject("ADODB.Recordset") getcustid_rs.Open getcustid_sql, getcustid_conn, 3, 3 getcustid_rs.MoveLast 'Response.write getcustid_rs.Fields("CustomerID").Value Set insertSub_conn = Server.CreateObject("ADODB.Connection") insertSub_conn.Open "DSN=68.185.17.143", "onlineasp", "ok4asp!" insertSub_sql = "INSERT INTO SubAccounts " insertSub_sql = insertSub_sql & "(CustomerID, " insertSub_sql = insertSub_sql & "Login, " insertSub_sql = insertSub_sql & "Email, " insertSub_sql = insertSub_sql & "FirstName," insertSub_sql = insertSub_sql & "LastName, " insertSub_sql = insertSub_sql & "PhoneHome, " insertSub_sql = insertSub_sql & "PhoneWork, " insertSub_sql = insertSub_sql & "AccountType, " insertSub_sql = insertSub_sql & "Discount, " insertSub_sql = insertSub_sql & "Description, " insertSub_sql = insertSub_sql & "Password, " insertSub_sql = insertSub_sql & "SystemType, " insertSub_sql = insertSub_sql & "ModemSpeed, " insertSub_sql = insertSub_sql & "NetSoftware, " insertSub_sql = insertSub_sql & "Operator, " insertSub_sql = insertSub_sql & "LastModifyUser, " insertSub_sql = insertSub_sql & "LoginLimit, " insertSub_sql = insertSub_sql & "saCurrent " insertSub_sql = insertSub_sql & ") " insertSub_sql = insertSub_sql & "VALUES(" insertSub_sql = insertSub_sql & getcustid_rs.Fields("CustomerID").Value & "," insertSub_sql = insertSub_sql & CheckString(login,",") insertSub_sql = insertSub_sql & CheckString(email,",") insertSub_sql = insertSub_sql & CheckString(fname,",") insertSub_sql = insertSub_sql & CheckString(lname,",") insertSub_sql = insertSub_sql & "'" & HomeAreac & "-" & HomeExch & "-" & HomeLast4 & "'," if WorkAreac = "" _ then insertSub_sql = insertSub_sql & "' ', " else insertSub_sql = insertSub_sql & "'" & WorkAreac & "-" & WorkExch & "-" & WorkLast4 & "'," end if insertSub_sql = insertSub_sql & CheckString(accounttype,",") insertSub_sql = insertSub_sql & "'Normal','" insertSub_sql = insertSub_sql & " " & "','" insertSub_sql = insertSub_sql & password & "'," insertSub_sql = insertSub_sql & CheckString(systemtype,",") insertSub_sql = insertSub_sql & CheckString(modemspeed,",") insertSub_sql = insertSub_sql & CheckString(netsoftware,",") insertSub_sql = insertSub_sql & CheckString(salespers,",") insertSub_sql = insertSub_sql & CheckString(salespers,",") insertSub_sql = insertSub_sql & "1," insertSub_sql = insertSub_sql & "-1)" 'Response.write insertSub_sql Set insertSub_RS = insertSub_conn.Execute(insertSub_sql) insertSub_conn.Close getcustid_rs.Close getcustid_conn.Close TempVar = SendTheMail Response.write TempVar & "
" 'Set Executor = Server.CreateObject("ASPExec.Execute") 'Executor.Application = "cmd /c d:\ASP_Scripts\signup_scott\add.bat" 'Executor.Parameters = " " & login & " " & fname & " " & lname & " " & password 'strResult = Executor.ExecuteDosApp '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '% Write information out to a text file '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Set fs = CreateObject("Scripting.FileSystemObject") filepath = server.mappath("install.ins") filepath2 = server.mappath("insfiles/new" & login & ".ins") 'Response.write filepath 'Response.write filepath2 Set a = fs.OpenTextFile(filepath, 1, FALSE) Set b = fs.CreateTextFile(filepath2, True) EntireFile = a.ReadAll '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '% START install.ins Customization '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% b.WriteLine ("[User]") b.WriteLine ("Requires_Logon=Yes") b.WriteLine ("Name=" & login) b.WriteLine ("Password=" & password) b.WriteLine ("") b.WriteLine ("[Phone]") b.WriteLine ("Phone_Number=" & ISPPhoneNumber) b.WriteLine ("Area_Code=" & ISPAreaCode) b.WriteLine ("Country_Code=1") b.WriteLine ("Country_ID=1") b.WriteLine ("Dial_As_Is=Yes") b.WriteLine ("") b.WriteLine ("[Internet_Mail]") b.WriteLine ("Name=" & login) b.WriteLine ("Password=" & password) b.WriteLine ("Email_Name=" & fname & " " & lname) b.WriteLine ("POP_Logon_Name=" & login) b.WriteLine ("POP_Logon_Password=" & password) b.WriteLine ("Email_Address=" & email) b.WriteLine ("Domain=Roguelink.net") b.WriteLine ("Window_Title=Outlook Express provided by Roguelink Internet Explorer") b.WriteLine ("Use_IMAP=No") b.WriteLine ("SMTP_Server=smtp.Roguelink.net") b.WriteLine ("POP_Server=pop.Roguelink.net") b.WriteLine ("Default_Client=Yes") b.WriteLine ("Logon_Using_SPA=No") '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '% END install.ins Customization '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% b.WriteLine("") b.WriteLine (EntireFile) b.Close a.Close Response.write("Signup completed

Congratulations !



Your account has been successfully created ! If your computer is an IBM PC comptatible and that you use Internet Explorer, you can now ") Response.write("download") Response.write(" this script which will setup your computer to use your Roguelink Account.
You just have to click on download then select Save File to Disk and then OK.") Response.write("
When this is done, just double-click on this file and your Internet configuration will be automatically upgraded !
") Response.write("Otherwise, please follow the instructions for manual configuration") Response.write("

") 'Response.write("

  • Medford Setup

    • ") Response.write("Remember, your Roguelink email account will be activated 1 business day after your dialup access account has been activated.

    ") Response.write("If you have any problem, please contact us at 471-0457.") Response.write("

    Exit
    ") Response.write("") Session.Abandon end if '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '% END Finish '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '% BEGIN Else '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Case Else '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Response.write "An unexpected error has occured. Please contact support@Roguelink.net" End Select %>