GÆSTEBOG HJÆÆÆLP!

hvordan lyder din linie 613?

Hvad har du skrevet i linie 613 ?

Hvad med lige at komme med koden så man glo lidt!

Kooooooodeeeee?

Ok! her er koden....

dette er koden der viser beskederne.

intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT * FROM joke\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"database.mdb\")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
  rs.PageSize = 10
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount
  Do While Not rs.EOF And intRecCount > 0
    Response.Write \" <A HREF=\"\"joke.asp?id=\"& rs(\"id\") & \"\"\">\"& rs(\"overskrift\") & \"<br></A>\"
  intRecCount = intRecCount - 1
  rs.MoveNext
  Loop
End If
rs.Close
Set rs = Nothing

Response.Write \"<center>\"
If Clng(intPage) > 1 Then
  Response.Write \"<a href=default.asp?page=\" & intPage - 1 & \">Tilbage</a>\"
Else
  Response.Write \"Tilbage\"
End If

Response.Write \"&nbsp;\"

If Clng(intPage) < Clng(intPageCount) Then
  Response.Write \"- <a href=default.asp?page=\" & intPage + 1 & \">Næste side</a> \"
Else
  Response.Write \"- Næste side\"
End If



dette er koden til at indsætte en besked


Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"database.mdb\")
If Request.QueryString(\"id\") <> \"\" Then
    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"SELECT * FROM joke WHERE (ID = \" & Request.QueryString(\"id\") & \")\"
    rs.Open strSQL, myConn, 1, 3
    If Not (rs.BOF Or rs.EOF) Then
    Response.write \"<TABLE WIDTH=\"\"50%\"\" BORDER=\"\"1\"\" BGCOLOR=\"\"#FFFFFF\"\" BORDERCOLOR=\"\"#000000\"\"><TR VALIGN=\"\"top\"\"><TD><FONT><B>\" & rs(\"overskrift\") & \"</B></FONT><BR><FONT SIZE=\"\"2\"\">Til føjet af: \" & rs(\"navn\") & \" den \" & rs(\"dato\") & \"</FONT><BR><FONT>\" & rs(\"joke\") & \"</FONT><BR><center><A HREF=\"\"java script:history.back(1)\"\" TARGET=\"\"_top\"\">Tilbage</A></center></TD></TR></TABLE><BR>\"
        rs.Update
        rs.Close
        myConn.Close
        Set rs = Nothing
        Set myConn = Nothing
    End If
End If



dette er den vedhæftede fil.

<% mode = request(\"mode\") %>
<% if mode = \"\" then %>
<% end if %>
<% if mode = \"send?alle=oplysninger\" then %>
<%

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database.mdb\") & \";UID=admin;PWD=;\"

    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"Select * From joke\"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

      rs.AddNew
      rs(\"overskrift\") = Request.form(\"overskrift\")
      rs(\"joke\") = Request.form(\"joke\")
      rs(\"navn\") = Request.form(\"navn\")
      rs.Update

    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing
response.redirect \"g-book.asp\"
%>

Har du freepaq webhotel?

har du adgang til ASP ??

HVIS du har freepaq webhotel, så er det derfor!
Der er ikke noget der dur der!

jeg mener vist heller ikke at FreePAQ understøtter Access database. Hvertfald ikke gratis-versionen.

Nå..? Det vidste jeg ikke, jeg troede bare de skoddede som de plejer!

Ok! tak for hjælpen!!!!