ASP og del hjælp
jeg har fundet et script på nettet til en online dagbog. Når jeg skriver i dagbogen kommer den med denne fejl:\"Microsoft VBScript compilation error \'800a0400\'
Expected statement
/dagbog/dagbog.asp, line 14
option Explicit\"
I linie 14 står der:
option Explicit
Response.Expires = 0
Er der en der kan hjælpe mig med at får det til at virke. Scriptet ser således ud:
<%@ LANGUAGE=\"VBSCRIPT\" %>
<body text=\"#CC33CC\" bgcolor=\"#FFFFCC\" link=\"#CC33CC\" vlink=\"#CC33CC\" alink=\"#CC33CC\">
<%
\'********************************
\'* Disse scirt er lavet af Christian T M *\'
\'* christianms@e-mail.dk *\'
\'* For The best of web. *\'
\'* www.email-find.zzn.com *\'
\'* og må bruges gratis, sålænge denne, og*\'
\'* den nederstående cobyright *\'
\'* bemærkning er intakt *\'
\'********************************
\' Listing 17.1 Paging through a Recordset Part 1: Declaration
option Explicit
Response.Expires = 0
%>
<!--#include file=\"adovbs.inc\"-->
<!--#include file=\"code_lib.asp\"-->
<%
IF request(\"ejer\") =\"\" then
Response.Redirect(\"default.asp\")
else
\'***********************************
DIM maned, ugedag
Function DatoVis(dato)
maned = Array(,\"januar\", \"februar\", \"marts\", \"april\", \"maj\", \"juni\", \"juli\", \"august\",\"september\", \"oktober\", \"november\", \"december\")
ugedag = Array(,\"Mandag\", \"Tirsdag\", \"Onsdag\", \"Torsdag\", \"Fredag\", \"Lørdag\", \"Søndag\")
DatoVis = ugedag(Weekday(dato,2)) &\" d. \"& Day(dato)&\". \"& maned(month(dato)) &\" \"& Year(dato)
End Function
\'***********************************
Const intPageSize = 7
Dim intCurrentPage, objConn, objRS, strQ
Dim intTotalPages, intI
\' Listing 17.2 Paging Part 2: Setting the Current Page Number
If Request.ServerVariables(\"CONTENT_LENGTH\") = 0 Then
intCurrentPage = 1
Else
intCurrentPage = CInt(Request.Form(\"CurrentPage\"))
Select Case Request.Form(\"Submit\")
Case \"Forrige\"
intCurrentPage = intCurrentPage - 1
Case \"Næste\"
intCurrentPage = intCurrentPage + 1
End Select
End If
\' Listing 17.3[em]Paging[md]Part 3: Preparing the Recordset for Paging
Set objConn = Server.CreateObject(\"ADODB.Connection\")
objConn.Open \"DBQ=\"& Server.MapPath(\".\") &\"/dagbog.mdb; DefaultDir=DBQ=\"& Server.MapPath(\".\") &\";Driver={Microsoft Access Driver (*.mdb)};\"
Set objRS = Server.CreateObject(\"ADODB.Recordset\")
objRS.CursorLocation = adUseClient
objRS.CursorType = adOpenStatic
objRS.CacheSize = intPageSize
\' Listing 17.4[em]Paging[md]Part 4: Opening the Recordset
strQ = \"select * from dagbog where bruger_id = \'\"
strQ = strQ & request(\"ejer\") & \"\'\"
objRS.Open strQ, objConn, , , adCmdText
\' Listing 17.5 Paging Part 5: Setting the Recordset cursor
objRS.PageSize = intPageSize
If Not(objRS.EOF) Then objRS.AbsolutePage = intCurrentPage
\' Listing 17.6 Paging Part 6: Sending Database Data
intTotalPages = objRS.PageCount
%>
<HTML>
<HEAD>
<TITLE>
Online Dagbog.
</TITLE>
</HEAD>
<BODY>
<%
If objRS.EOF then
Response.Write (\"Personen har ikke skrevet i sin dagbog endnu.<BR>\")
%>
<href=\'<%= URL %>\' border=\'0\'>
<img src=\'<%= logosti %>\' border=\'0\'>
</A> <FONT SIZE=\"2\" FACE=\"VERDANA\">Vil du også have en dagbog?</FONT>
<A href=\'opret.asp\'>klik her.</A><BR>
<FONT SIZE=\"1\" FACE=\"VERDANA\">Dette script er lavet af:</FONT><BR>
<A HREF=\"http://www.whitehat.dk/tbw/\">© <FONT SIZE=\"1\" FACE=\"VERDANA\">TBW</FONT>
<%
Else
%>
<FONT SIZE=\"2\" FACE=\"VERDANA\">Herunder kan du se alle de dage hvor jeg har skrevet dagbog.<BR>
Vælg den dag du vil se Dagbogen for.<P></FONT>
<font face=\"arial rounded mt bold\" size=\"4\">
<%
For intI = 1 to objRS.PageSize
\' Response.Write Server.HTMLEncode(objRS(\"dato\") & \":\" & objRS(\"ID\")) & \"<BR>\"
Response.Write (\"Dagbog for <A HREF=\'vis.asp?artikel=\" & objRS(\"Id\") & \"\'>\"& datovis(objRS(\"dato\")) &\"</A><BR><BR>\")
objRS.MoveNext
If objRS.EOF Then Exit For
Next
objRS.Close : objConn.Close
Set objRS = Nothing : Set objConn = Nothing
%>
</font>
<BR>
Side <%= intCurrentPage %> af <%= intTotalPages %><P>
<% \' Listing 17.7 Paging Part 7: Providing Web Form for Paging %>
<FORM ACTION=\"<%= Request.ServerVariables(\"SCRIPT_NAME\") %>?ejer=<%= request(\"ejer\") %>\" METHOD=\"POST\">
<INPUT TYPE=\"Hidden\" NAME=\"CurrentPage\"
VALUE=\"<%= intCurrentPage%>\">
<%
If intCurrentPage > 1 Then %>
<INPUT TYPE=\"Submit\" NAME=\"Submit\" VALUE=\"Forrige\">
<% End If
If intCurrentPage <> intTotalPages Then %>
<INPUT TYPE=\"Submit\" NAME=\"Submit\" VALUE=\"Næste\">
<% End If %>
</FORM>
<Table>
<tr>
<td>
</TD>
<TD>
</TD>
</TR>
<TR>
<TD>
</TD>
<TD></TD>
</TR><TR>
<TD>
<FONT SIZE=\"1\" FACE=\"VERDANA\">Dette script er lavet af:</FONT>
</TD></TR><TR><TD>
<A HREF=\"http://www.whitehat.dk/tbw/\">© <FONT SIZE=\"1\" FACE=\"VERDANA\">TBW</FONT>
</TD></TR></TABLE>
</BODY>
</HTML>
<% End If %>
<% End If %>
