halo
ich hab hier das asp-script
es kommt die fehlermeldung typen unverträglich in zeile 34
aber ich find keinen fehler
könnt ihr mir helfen?
vielen dank
<%@ Language=VBScript %>
<%
option explicit
Response.Expires = 0
'on error resume next
%>
<!-- Hier stehen Include-Anweisungen für einzuschliessende Dateien -->
<%
'***************************************************************************'
'Variablendeklaration
Dim objcon, objrs, strsql
Set objcon = Server.CreateObject("ADODB.Connection")
objcon.Open "chat"
'***************************************************************************
'Variablendeklaration
'***************************************************************************
'Variableninitialisierung
'***************************************************************************
'Lokale Prozeduren und Funktionen
'***************************************************************************
'Hier steht Code, der vor dem Seitenkopf stehen muss, z.B. Response.Redirect
if request.form("txtNick") = objrs("Nick") and request.form("txtPasswort") = objrs("Passwort") then
response.redirect("start.html")
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252" />
<title></title>
<meta name="description" content="" />
<meta name="keywords" content="" />
</head>
<body>
<%
'***************************************************************************
'Hier steht Code, der die Seite erstellt, z.B. mit Response.Write(..)
Set objrs = Server.CreateObject("ADODB.Recordset")
strsql = "SELECT Nick, Passwort FROM tblBenutzer"
objrs.Open strsql, objcon
%>
<form action="index.asp" method="post" id=form1 name=form1>
</form>
<%'Do Until objrs.EOF
'Response.Write(objrs("Nick") & "<br />")
' objrs.MoveNext
'Loop
%>
<BR>
<input type="text" name="txtNick" size="20"><BR>
<input type="password" name="txtPasswort" size="20"><BR>
<INPUT type="submit" value="Login" id=button1 name=btnLogin>
<a href="register.asp">register</a></body></html>