ich habe mal ein bisschen code gepostet... hoffe es hilft weiter..
<%
' gek�rzte (Array) Abfrage der einzelnen Radio Buttons des Forms
dim f()
for i = 1 to 27
redim preserve f(i)
f(i) = Request("f" & i & "'")
next
' hier die Abfrage der restlichen Textfelders des Forms
Nachname = Request("Nachname")
Vorname = Request("Vorname")
Sitz = Request("Sitz")
' hier mache ich die Plausibilit�tsabfrage
If Request.Form <> "" Then
Errors = false
for i = 1 to ubound(f()) ''hier ist Zeile 53
if f(i) = "" then
Errors = true
Errorf1 = true
end if
next
If NOT Errors Then
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.ConnectionTimeout = Application("U_ConnectionTimeout")
OBJdbConnection.CommandTimeout = Application("U_CommandTimeout")
OBJdbConnection.CursorLocation = Application("U_CursorLocation")
OBJdbConnection.Open Application("U_ConnectionString"),
Application("U_RuntimeUserName"), Application("U_RuntimePassword")
Set resResultat = Server.CreateObject("ADODB.Recordset")
resResultat.CursorType = adOpenKeyset
resResultat.LockType = adLockOptimistic
resResultat.Open "Ergebnis", OBJdbConnection, , , adCmdTable
resResultat.AddNew
If f1 <> "" Then resResultat("f1") = f1
If f2 <> "" Then resResultat("f2") = f2
If f3 <> "" Then resResultat("f3") = f3
-----Urspr�ngliche Nachricht-----
Von: Stephan Schumann [mailto:[EMAIL PROTECTED]]
Gesendet: Mittwoch, 27. Februar 2002 15:12
An: ASP Diskussionsliste fuer Anfaenger
Betreff: [aspdebeginners] Re: [aspdebeginners] [aspdebeginners]
k�rzen...
was steht denn in zeile 53?
schick doch mal n bissl code bitte,... is einfacheer zum lesen,....
----- Original Message -----
From: "Sebastian Svetel" <[EMAIL PROTECTED]>
To: "ASP Diskussionsliste fuer Anfaenger" <[EMAIL PROTECTED]>
Sent: Wednesday, February 27, 2002 2:55 PM
Subject: [aspdebeginners] [aspdebeginners] k�rzen...
> hmm, das scheints aber bei mir nicht zu schnallen....
> If Request.Form <> "" Then
> Errors = false
>
> for i = 1 to ubound(f())
> if f(i) = "" then
> Errors = true
> Errorf1 = true
> end if
> next
>
> end if
>
> gibt folgende Fehlermeldung aus:
>
> Fehlertyp:
> Laufzeitfehler in Microsoft VBScript (0x800A0009)
> Index au�erhalb des g�ltigen Bereichs
/webrootentw/wwwsvetel/umfrage/fragebogen.asp, line 53
>
> ne ahnung, weshalb?
>
> cu sebi
>
>
> | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
> | [aspdebeginners] als [EMAIL PROTECTED] subscribed
> | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
> | Sie knnen sich unter folgender URL an- und abmelden:
> | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
>
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
