Can I open a recordset On Client Side Script?

Question

Hi Guys,
On a form I have a client side VBscript thet checks the email
addy a user has added into a text box in a form and if its in the
array of values set in the script it gets refused. This works.....
I would like to adapt this a little if possible and make it
so that instead of hardcoding the array values into the script, I
would like to have the array values taken from a recordset because
it will allow the user to add and delete bad domains via a form and
not need to go into the page code to add to the array I have at the
moment.
I have tried serval times to replace my array loop with a
recordset while loop to get the badDomains from the field in the
database but I just get script error on page in my task bar.
Can I open a recordset from a client side script?
Id apprecaiate eny thoughts on how I can do this.
Thanks again
Tag

Answer 1

Hi Envision,
Its actually VBScript im in at the moment...
I have tried to get my client script to run but im still just
not getting it although I dont think im far away, mixing client
side and server side scripts to get this array loaded is still
throwing me a bit !!!!!!
I tried to follow the For loop suggested in JS but did it in
VBS and wondered if anyone could give it a look and point me to my
errors?
I dont like just posting code without being asked as its a
bit presumptious of me but Im not asking anyone to write this for
just point me to my problems hopefully.....
Here is what I have , when the page loads I used DW to make a
recordset for me to open the table with stored bad domains and this
client script is supposed to harness the recordset created server
side by DW and loop through the field and compare whats in the
forms email textbox..
[code]
Sub CheckMail()
Dim sValidationMessage
Dim sEmail
Dim sBadDomains()
Dim nIndex
dim counter
sValidationMessage = ""
sEmail = Document.Form2.email.value
nIndex = 0
counter =<%=(rsGetBadDomains_total)%>
If Not (InStr(1, sEmail, "@") > 0 And InStr(1, sEmail,
".") > 0) Then
sValidationMessage = "You have entered an invalid email
address!"
End If
If Len(sValidationMessage) = 0 Then
For nIndex = 0 to counter
sBadDomains(nIndex) =
<%=(rsGetBadDomains.Fields.Item("sBadDomains").Value)%>
If InStr(1, sEmail, sBadDomains(nIndex)) > 0 Then
sValidationMessage = "You have entered an unsuitable E-Mail
address please use your main ISP E-Mail address"
Exit For
End If
nIndex=nIndex+1
Next
End If
If Len(sValidationMessage) > 0 Then
MsgBox sValidationMessage
document.Form2.email.select
Else
document.Form2.submit()
End If
End Sub
[/code]
Thanks again for all the support so far.
Regards
Tag