3 svar · 180 visningar · startad av webzonen
Kan ni se vad som är felet på denna kod:
<% IF Session("admin") = "" THEN %>
Logga in för att komma åt administrationspanelen
<form method="post" action="default.asp?page=kolla">
Login:
<input type="text" name="namn"> Lösenord: <input type="password" name="pass"> <input type="submit" value="skicka">
</form>
<% End If %>
<% If Request.QueryString("page") = "kolla" Then %>
<%
Namn = Request.Form("namn")
Password = Request.Form("pass")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open = "driver={Microsoft Access Driver (*.mdb)};DBQ=c:\inetpub\wwwroot\webzonen\main\main.mdb"
SQL = "SELECT * From red WHERE Namn ='" & Namn & "'"
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open SQL, Conn
%>
<%
If Password = RS("Pass") Then
Session("admin") = "OK"
Response.Write "Du har loggat in"
Else
Response.Write "fel lösenord, kolla igen"
End If
%>
<%
Conn.Close
Set RS=nothing
RS.Close
%>
<%End If %>
Jag får meddelandet
Körningsfel i Microsoft VBScript fel '800a01b6'
Objektet stöder inte egenskapen eller metoden.: 'Conn.Open'
/webzonen/admin/default.asp, rad 18
------------------
Rom byggdes inte på en dag - det tog en halv
[Redigerat av webzonen den 06 aug 2001]
Själv ser jag inte att du har .Execute med ngnstans ... kanske e blind.
Det jag hakade upp mig på är dock detta:
<%
Conn.Close
Set RS=nothing
RS.Close
%>
Bör vara:
<%
RS.Close
Set RS=nothing
Conn.Close
Set Conn = Nothing
%>
Först stänga och förstöra recset objektet, sedan stänga och förstöra conn-objektet.
cya,
PatrikB
------------------
*så kan det gå när inte haspen är på*
[Redigerat av PatrikB den 06 aug 2001]
Ta bort = från conn.open dvs
Conn.Open "driver={Microsoft Access Driver (*.mdb)};DBQ=c:\inetpub\wwwroot\webzonen\main\main.mdb"
------------------
essentitia preter non sans multiplicandum
tackar och bockar... Det funkar finfint nu.
------------------
Rom byggdes inte på en dag - det tog en halv