Har ett forum som jag skyddar med lösen login Körningsfel i Microsoft VBScript fel '800a01f4' Asp kod fråga vart ligger felet
vet inte om ni förstår vad jag menar gör inte det själv
<%
'CHi2k Services - Login Package v1.0
'created by Kernel Klink
'(c) 2001 government.hn.org
Option Explicit
'Do not load/display this page if the user is not logged-in
'Check this by checking the Session LoggedIn variable
if Session("LoggedIn") <> "yes" then
Session("Message") = "You must log in before viewing that page!"
response.redirect "login.asp"
end if
Sub DrawPage()
%>
'här under kommer den skyddad sidan
<!-- #include file="adovbs.inc" -->
<html>
<head>
<title>ASPsidan Sidan för dig som gillar ASP</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="500" border="0" cellspacing="0" cellpadding="2" height="100%" align="center">
<tr>
<td valign="top">
<p align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Disskussionsforum
</font></b></p>
<p align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Inlägg
markerade med <img src="pil-right-red.gif" align="absmiddle" width="10" height="9">
innehåller svar som är högst en dag gamla. Om du vill
ha svar snabbt så kan du söka i forumet
efter gamla frågor och svar! För att göra ett inlägg
i forumet klicka här, eller rulla ner längst
ner på sidan!
Admin</font></p>
<div align="left">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#8CA7B5"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">RUBRIK</font></td>
<td width="130" bgcolor="#8CA7B5"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">SKRIVET
AV</font></td>
<td width="125" bgcolor="#8CA7B5"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">DATUM</font></td>
<td width="40" bgcolor="#8CA7B5">
<div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">SVAR</font></div>
</td>
</tr>
<%
'här under tror jag det blir fel
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("forum.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From asp WHERE REF_ID = 0 ORDER BY DATUM DESC"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
X=0
DO UNTIL X=25 OR RecSet.EOF ' <-- Här visar vi bara de 25 senaste trådarna
nytt = "no"
Set RecSet2 = Server.CreateObject("ADODB.Recordset")
Addera2 = "Select DATUM From asp WHERE REF_ID = " &RecSet("ID")
RecSet2.Open Addera2, Connect, adOpenStatic, adLockOptimistic
DO UNTIL RecSet2.EOF OR nytt = "yes"
IF RecSet2("DATUM") > NOW - 1 THEN
nytt = "yes"
END IF
RecSet2.MOVENEXT
LOOP
RecSet2.CLOSE
%>
<tr>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
">
<% IF nytt = "yes" THEN %>
<% END IF %>
<%=RecSet("RUBRIK")%></font></td>
<td width="130"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
<%=RecSet("NAMN")%> </font></td>
<td width="125"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
<%=RecSet("DATUM")%> </font></td>
<td width="40">
<div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><%=RecSet("ANTALSVAR")%></font></div>
</td>
</tr>
<%
RecSet.MOVENEXT
LOOP
RecSet.CLOSE
Connect.CLOSE
Set RecSet = nothing
Set Connect = nothing
%>
</table>
<hr size="1" width="100%" align="left">
<p><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Skriv
ett inlägg</b></font><br>
<b><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#FF0000">
<%
IF Session("fel") <> "" THEN
Response.WRITE Session("fel")
Session("fel") = ""
END IF
%>
</font></b><br>
</p>
</div>
<form name="SKRIV" method="post" action="adderaPost.asp">
<div align="left">
<table width="400" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="226"> <font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<input type="text" name="namn" size="30" maxlength="20" value="<%IF Request.Cookies("UserInfo")("NAMN") <> "" THEN Response.Write Request.Cookies("UserInfo")("NAMN")%>">
</font></td>
<td width="174"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Namn</font></td>
</tr>
<tr>
<td width="226"> <font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<input type="text" name="epost" size="30" maxlength="50" value="<%IF Request.Cookies("UserInfo")("EPOST") <> "" THEN Response.Write Request.Cookies("UserInfo")("EPOST")%>">
</font></td>
<td width="174"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Epost</font></td>
</tr>
<tr>
<td width="226"><font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif">
<input type="text" name="rubrik" size="30" maxlength="40" >
</font></td>
<td width="174"><font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif">Rubrik</font></td>
</tr>
<tr>
<td colspan="2"> <font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<textarea name="inlagg" cols="40" rows="10"></textarea>
Inlägg</font></td>
</tr>
<tr>
<td width="226"> <font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<input type="submit" name="Submit" value="posta inlägget" alt="Posta inlägget!">
</font></td>
<td width="174"> </td>
</tr>
</table>
</div>
</form>
</td>
</tr>
</table>
</body>
</html>
'här under slutar den skyddad sidan
<%
End Sub
Call DrawPage()
%>Sv: Asp kod fråga vart ligger felet
Vad är det som strular? Det vore bra att få veta det och gärna vilket felmeddelande som du får.
/Anna-KarinSv: Asp kod fråga vart ligger felet
Odefinierad variabel: 'Connect'
/prov/forum.asp, line 55
Tackar på förhand
Mvh hasse