<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% response.expires = -1 dim rs, conn, sql dsn = "DSN=satman;UID=platuser;PWD=mypassword" set conn = Server.CreateObject("ADODB.Connection") conn.open dsn ' FUNCTIONS ' --------- function killquotes(var) killquotes = replace(var,"'","''") end function Function isAlpha(str) Dim iPos, bolValid iPos = 1 bolValid = True While iPos <= Len(str) and bolValid if Asc(UCase(Mid(str,iPos,1))) < Asc("A") or _ Asc(UCase(Mid(str,iPos,1))) > Asc("Z") then _ bolValid = False iPos = iPos + 1 Wend isAlpha = bolValid End Function Private Function IsAlphaNumeric(byVal string) dim regExp, match, i, spec For i = 1 to Len( string ) spec = Mid(string, i, 1) Set regExp = New RegExp regExp.Global = True regExp.IgnoreCase = True regExp.Pattern = "[A-Z]|[a-z]|\s|[_]|[0-9]|[.]" set match = regExp.Execute(spec) If match.count = 0 then IsAlphaNumeric = False Exit Function End If Set regExp = Nothing Next IsAlphaNumeric = True End Function %> Bright Star Internet

For more information, call:
(866) 367-4728


***Current BrightStar Customers Please Login For an Important Update.***
 
» 1 Free email account

» up to 512kbps download

» Unlimited Usage!*

» Dial-Up Account included


*- Subject to Reasonable Usage Policy
**- Taxes not included
» 5 Free Email Accounts

» up to 768 kbps download

» Unlimited Usage!*

» Dial-Up Account included


*- Subject to Reasonable Usage Policy **- Taxes not included
 
Bright Star Main : What Is Bright Star? : Service Plans : How Can We Help? : Bright Star Members
---
(c) 2004 Bright Star Internet, Inc., All Rights Reserved