Login.asp kommer med en fejl - adovbs.inc was not found
Hej - Jeg får denne fejl.Active Server Pages error 'ASP 0126'
Include file not found
/vsLogin.asp, line 5
The include file 'adovbs.inc' was not found.
mangler der en linie i det her?
adovbs.inc er en fil for sig.
(Jeg har siden fra viewsource.dk)
<%
response.Buffer = TRUE
response.expires = 0
%>
<!--#include file="adovbs.inc" -->
<html>
<head>
<title>ASP - Misc - vsLogin</title>
<meta content="text/html; charset=windows-1252" http-equiv="Content-Type">
<style>
TD.format
{
COLOR: blue;
FONT-FAMILY: Arial;
FONT-SIZE: 15px;
FONT-WEIGHT: bolder
}
TD.format A:active
{
COLOR: red;
TEXT-DECORATION: none
}
TD.format A:link
{
COLOR: blue;
TEXT-DECORATION: none
}
TD.format A:visited
{
COLOR: blue;
TEXT-DECORATION: none
}
TD.format A:hover
{
COLOR: red;
TEXT-DECORATION: none
}
</style>
<meta content="Microsoft FrontPage 4.0" name="GENERATOR">
</head>
<body bgColor="#FFFFFF">
<table bgColor="#ECF5FF" border="1" borderColorDark="#0000ff" borderColorLight="#000000" cellPadding="10" cellSpacing="5" width="100%" height="98%">
<tr>
<td vAlign="center" height="80%"><div align="center"><center><table border="0" cellPadding="0" cellSpacing="0" width="500">
<tr>
<td align="middle" vAlign="top" width="500" class=format >
<br><br><br>
<P align=left>
<%Password Protect all your sites with this Login Script. All Users and passwords are kept in an Access Database. You can set different
userlevels, and all logon are stored in the database with your IP adress. If you enter wrong Username or Password 5 time in a row, the Login
will be closed - and you cant login again before the webmaster delete the blocking of your IP adress.
Log on as Webmaster:<br>Username & Password: webmaster / webmaster
Log on as Guest:<br>Username & Password: guest / guest%>
<!-- Start indtastnings form -->
<%
'indform genererer Indtastnings formen
Sub indform()%>
<div style="BACKGROUND-COLOR: #6098ee; BORDER-BOTTOM-STYLE: groove; BORDER-LEFT-STYLE: groove; BORDER-RIGHT-STYLE: groove; BORDER-TOP-STYLE: groove;">
<br>
<table border="0" cellpadding="7">
<form method="post" action="vsLogin.ASP" name="form1">
<tr>
<td class="vc"><b>Username:</b> </td>
<td><input name="brugernavn" class="hc"> </td>
</tr>
<tr>
<td class="vc"><b>Password:</b> </td>
<td><input type="password" name="password" class="hc"></td>
</tr>
<tr>
<td></td><td align="right">
<input type="submit" value=" OK " class="vc" id=submit1 name=submit1> <input type="reset" value=" Fortryd " class="vc" id=reset1 name=reset1>
</td>
</tr></table></form></div>
<% End Sub %>
<!-- Slut indtastnings form -->
<%
' Her defineres variabler til brugernavn, password og klientens IP-nummer
brugernavn = request.form("brugernavn")
password = request.form("password")
remote_host = request.ServerVariables("REMOTE_HOST")
' Hvis enten brugernavn-feltet eller password-feltet er tomme,
' er det enten første gang at siden bliver loadet eller en fejl
' Ind
If brugernavn = "" OR password = "" then
indform()
else
%>
<div id="DIV1">
<%'**** sikkerhedscheck hvis der er lavet gentagende mislykkedes logins lukkes database
' Her bliver det chekket om der er noget der er lukket.
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("pw.mdb")
set aa = Server.CreateObject("ADODB.Recordset")
aa.Open "select * from logind WHERE (lukket = True) AND (remote_host = '" & remote_host & "')", conn, adOpenKeyset, adLockOptimistic
'set Session("aa") = aa
If not aa.EOF Then
DO
' Her chekkes det efter IP
if remote_host = aa.fields("remote_host") then
user = "ikke_ok"
session("remote_host") = remote_host
End If
aa.MoveNext
Loop Until user = "ikke_ok" OR aa.EOF
aa.close
Response.Clear
Response.Redirect("LUKLOKIN.asp")
Response.End
End If
If not user = "ikke_ok" Then
%>
<!-- Slut : Ja databasen er åben -->
<%
If Session("taeller") > 3 Then
aa.AddNew
aa("brugernavn") = brugernavn
aa("password") = password
aa("datoogtid") = now()
aa("lukket") = true
aa("remote_host") = request.ServerVariables("REMOTE_HOST")
aa.update
aa.close
response.write("Adgangen til indtastning vil nu blive lukket ")
Session("godkendt")=""
else
aa.AddNew
aa("brugernavn") = brugernavn
aa("password") = password
aa("datoogtid") = now()
aa("lukket") = false
aa("remote_host") = request.ServerVariables("REMOTE_HOST")
aa.update
aa.close
Session("taeller")= Cint(Session("taeller")) + 1
set rs = Server.CreateObject("ADODB.Recordset")
rs.open "select * from brugernavn WHERE (brugernavn = '"& CStr( brugernavn ) &"') AND (password = '"& CStr( password ) &"')", conn
set Session("rs") = rs
if rs.EOF Then
Session("godkendt")="ikkegodkendt"
response.write("Du har forsøgt at lokke på:<B> ")
response.write(cstr(Session("taeller")) + ". gang</B></DIV> ")
rs.close
indform
else
Session("userlevel") = rs.Fields("userlevel")
Session("brugernavn") = rs.Fields("brugernavn")
rs.close
Session("godkendt")="godkendt"
Session("taeller")= 0
Response.Clear
Response.Redirect("velkommen.asp")
Response.End
End If
End if
End if
End if
%>
</div>
</td>
</tr>
</table>
</center></div></td>
</tr>
</table>
</body>
</html>
