PS - excuse some of the response.write lines in there, they are just in there to test whether the retrieval was successful, and they will be removed later.
Gary
www.robarspages.ca
...& "\04.txt",1)
While not rs.AtEndOfStream
d=RS.Readline
Response.Write("The text in the file is: " & d& "<br />")
response.write(a*b+c+d/b+c & "<br /><br /><br /><br />")
Wend
Dim numArray(5),gg
numArray(0) = ""
numArray(1) = a
numArray(2) = b
numArray(3) = c
numArray(4) = d
For gg = 1 to...
This makes perfect sense. Yes, the pics are numbered: 01.jpg, 02.jpg...., and they correspond with numbered txt files 01.txt, 02.txt.....
I am not sure how to get the counts from the files in to the array?
Gary
www.robarspages.ca
Thanks for the response. I already have em couting away, it is just the reading of the txt files, sorting, and listing that I am having trouble getting my hear around. sorry for being unclear, some of the concepts of asp are still a bit foggy, and perhaps this may be over my head.
Gary...
hmm, thats a clever script, cheers to you!
not quite sure it will work for my purpose though.
I need something that looks trough the list of textfiles, figures out which one holds the highest count, then write the code to show them all in order from highest to lowest. goal is to list the more...
I have a list of images with link tags around them, that when clicked to view the fullsize, some code imcrements a hit count stored in an individual txt file. (img001.jpg would store its count in 001.txt)
I want to have the images listed order based on their respective counter file, from...
...characters
dim re
set re = New RegExp
re.Global = True
re.IgnoreCase = True
'Name
re.Pattern = "^[^0-9\/><\.,\\!\^\$\*\+\?@#%&\(\);:\[\]\{\}=""']+$"
If re.Test(xname)=false Then
Response.redirect "aspvalid4.asp?error=1&uname=" & xname & "&uemail=" &...
...= REPLACE(trim(request("xemail")),"'","''")
ErrorMsg = ""
dim re
set re = New RegExp
'First Name
re.Pattern = "^[^0-9\/><\.,\\!\^\$\*\+\?@#%&\(\);:\[\]\{\}=""']+$"
re.Global = True
re.IgnoreCase = True
errorArray(0) = re.Test(xname)
if errorArray(0) then...
Thanks everyone for the input.
bslintx - I have taken your advice and set something up similar, but still have a few bugs to work out, may p[ost them later if i cant get through them.
vbkris - I have tried using the string yo have suggested. it casuses nothing to be allowed through, even...
Well Tony, you raise a valid concern.
I guess I am a bit of a perfectionist, so it will nag at me if i neglect it.
Any Help at this point is appreciated, as I have spent two days researching!
Gary
www.robarspages.ca
...biz, org and so on.)
I am unsure of how to implement that additional feature in to what I have:
'Email
re.Pattern = "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$"
errorArray(2) = re.Test(xemail)
if errorArray(2) then...
Thanks Tsuji!
I have done some research on email validation, and and had run across this code for actually checking the domain for validity:
<%@LANGUAGE="VBSCRIPT"%>
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"...
Thanks for the input on this one Sheco. Im not sure I agreee that client side is necessarily better. While it is true that it may save time/resources in the cases you had mentioned, but from a www (non intranet sire) perspective, it seems better to use a server side.
The javascript...
Thanks Tsuji,
That did the trick! Its funny how things like that slip by after looking at the screen for a few hours!
Thanks again!
Cheers
Gary
www.robarspages.ca
...ErrorMsg = ""
dim re
set re = New RegExp
'First Name
re.Pattern = "^[^0-9\/><\.,\\!\^\$\*\+\?@#%&\(\);:\[\]\{\}=""']+$"
re.Global = True
re.IgnoreCase = True
errorArray(0) = re.Test(xname)
if errorArray(0) then...
...xemail = request.form("xemail")
ErrorMsg = ""
dim re
set re = New RegExp
'First Name
re.Pattern = "^[^0-9\/><\.,\\!\^\$\*\+\?@#%&\(\);:\[\]\{\}=""']+$"
re.Global = True
re.IgnoreCase = True
errorArray(0) = re.Test(xname)
if errorArray(0) then
errorArray(0)=False
else...
Afraid you will have to upgrade to XP Pro or a windows server edition.
Others I have talked to have tried putting IIS on XP home, and have had nothign but problems with it.
Gary
www.robarspages.ca
Hello
I have a form that validates some information, and subm to DB. I want to add an additional parameter to be validated. THe string should have no less than 8 characters.
if len(strEmailAddr) < 8 then
berror = true
strNameClass = "clsErrorPrompt"
strErrMsg = strErrMsg & "Entry...
bhuninghake,
In your example (i have it working for me now) how do submit information, once deemed valid, to another asp file that will write it to my DB?
Gary
www.robarspages.ca
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.