[ASP] Typen komen niet met elkaar overeen: 'Optin'

[Verwijderd]

hallo,
Ik heb een inlog script gemaakt
alles werkt wel, het controleren van pass en username
en het vergelijken,
Maar als ik het correcte pasword en usernam in type krijg ik
de volgende foutmelding :

Soort fout:
Runtimefout Microsoft VBScript (0x800A000D)
Typen komen niet met elkaar overeen: 'Optin'

kheb al gezocht op google, maar kan niks vinden

(als iemand het nodig vind post ik source ook wel, maar wil graag eerst weten wat defoutmelding betekend)

[ Voor 3% gewijzigd door Verwijderd op 08-04-2003 11:16 ]

[Flard]

Twee dingen:

Heb je wel goed gegoogled?


Zonder source kunnen we je zeker niet helpen.


(Ik denk dat je ergens een typefout hebt gemaakt, danwel geeft je functie 'optin' verkeerde waarde terug)

[ Voor 7% gewijzigd door Flard op 08-04-2003 11:19 ]

[Verwijderd]

code:

<%@ language="VBscript" %>
<% dim strSQL, rsLogin, objConn, username, password
   
   username=trim(request.form("username"))
   password=trim(request.form("password"))
   if username = "" or password = "" then
   response.Redirect("start.asp?error=3")
   end if

   set rsLogin = Server.CreateObject("ADODB.RecordSet")
   set objConn = Server.CreateObject("ADODB.Connection")
   
   Dim strConnect
   strConnect = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& _
              Server.MapPath("priconmedewerkers.mdb")
   strSQL = "SELECT * from Users"
   objConn.open strConnect
   rslogin.open "users", objConn

   foundit=false
   Do until rslogin.EOF OR foundIt
   if (StrComp(rslogin("username"), username,vbTexrCompare)=0) Then
   foundIt=True
   Else
   rslogin.moveNext
   End if
   loop
   if not FoundIt then
   rslogin.close
   Set rsloguin=nothing
   objConn.CLose
   Set objConn = nothing
   Response.Redirect("start.asp?error=1")
   end if

   If not (strComp(rslogin("password"), password, vbBinaryCompare) = 0) Then
   rslogin.close
   Set rslogin=Nothing
   objConn.Close
   Set objConn=nothing
   response.redirect ("start.asp?error=2")
   Else Session("valid")=request("username")
   response.redirect("adminpart.asp")
   end if
%>

[ Voor 14% gewijzigd door Verwijderd op 08-04-2003 11:22 ]

[Flard]

Er komt nergens in het stuk hierboven de tekst 'optin' voor...

Misschien heb je een regelnummer wáár het fout gaat?

[Verwijderd]

hij geeft aan in regel 2
maar daar staat naar mijn idee nik bijzonders,
ook al verander ik de regels (lees: verder naar beneden zetten)
hij geeft nog steeds regel 2 aan.

[Flard]

Probeer dit 's als eerste regel:

<%@ LANGUAGE=VBScript %>

(dus zonder quotes)

Mocht dat niet werken... als je dat hele code blok vervangt door 'response.write "help"', doet ie het dan wel?

En andere mogelijkheid: laat de hele eerste regel 's weg <%@....%>

[Verwijderd]

laat maar, doet het nu wel.

was Else if en end if vergeten

maar bedankt voor je hulp

[ Voor 68% gewijzigd door Verwijderd op 08-04-2003 12:03 ]

[.oisyn]

Als je goede indentatie gebruikt had had je dat zelf meteen gezien