til coltau

Med 25 på hver side mener du vel forsiden. ? (default.asp)

Kontrol ved upload af billede:
1. Ikke større end 100kb. ? eller ?
2. format må kun være jpg/jpeg/gif. ?

Hvor meget af koden må jeg ændre i. Det lyder til at du allerede har ændret noget.

nej jeg pillede bare ved den:=) du må gerne ændre i det hele.. ja jeg mener forsiden. og størrelsen må gerne være 500kb.
ja jpg/jpeg/gif da de ikke fylder for meget. og jeg lod mærke til en til fejl...prøv at skrive en lidt lang titel så giver den en fejl.

Jeg sender ændringerne nu. !

Når jeg køre default.asp får jeg denne fejl


Error Type:
ADODB.Recordset (0x800A0BCD)
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/morefiles/default.asp, line 32

Hvis det bare er en mindre fejl kan du bare fortælle mig hvad jeg skal ændre her:)

Så fik du alligevel den forkerte default.asp. Jeg fik samme fejl da jeg uploade til internettet - men ikke lokalt (PWS)
her er den rigtige:

<%@ LANGUAGE="VBSCRIPT"%>
<% Response.Expires = 0 %>
<!-- #include file="html.inc" -->

<%
Const intMaxRSPerPage = 25 ' Antal pr side

' Læs parametre
if IsEmpty(Request.QueryString("Page")) then
  intPage = 1
else
  intPage = CInt(Request.QueryString("Page"))
end if

Response.Write("<html><head><LINK HREF='styles.css' REL='stylesheet' TYPE='text/css'></head>")

' Overskrift
Response.Write("<body><h3><p align='center'>Overskrift</p></h3>")
Response.Write("<hr width='90%' align='center'>")

' Opret ADO-connection
Set myConn = Server.CreateObject("ADODB.Connection")
  myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("info.mdb")

' Opret RecordSet
Set RS = Server.CreateObject("ADODB.RecordSet")
  RS.CursorLocation = 3 ' adUseClient
  RS.CursorType = 3 ' adOpenStatic
  RS.CacheSize = intMaxRSPerPage
  RS.Open "SELECT * FROM info order by Dato", myConn, , , &H0001 ' adCmdText
  if not RS.EOF then
    RS.PageSize = intMaxRSPerPage
    RS.AbsolutePage = intPage

    ' Vis knapper til flere sider
    intTotalPage = CInt(Int((RS.RecordCount - 1) / intMaxRSPerPage) + 1)
    if intTotalPage > 1 then
      Response.Write("<div align='center'><table border='0' cellpadding='0' width='80%'><tr>")
      intMax = intMaxRSPerPage * intPage
      if intMax > RS.RecordCount then
        intMax = RS.RecordCount
      end if
      intMin = intMaxRSPerPage * (intPage - 1) + 1
      if intMax <> intMin then
        Response.Write("<td class='smalllink' width='60%'>Her vises " & CStr(intMin) & " til " & CStr(intMax) & " af i alt " & CStr(RS.RecordCount) & " navne. Side " & CInt(intPage) & " af " & CStr(intTotalPage) & ". Vælg side </td>")
      else
        Response.Write("<td class='smalllink' width='60%'>Her vises " & CStr(intMin) & " af " & CStr(RS.RecordCount) & ". Side " & CInt(intPage) & " af i alt " & CStr(intTotalPage) & " navne. Vælg side </td>")
      end if
      for intI = 1 to intTotalPage
        if intI <> intPage then
          Response.Write("<td class='smalllink'><a href='default.asp?Page=" & CStr(intI) & "'>" & CStr(intI) & "</a></td>")
        else
          Response.Write("<td class='smalllink'>" & CStr(intI) & "</td>")
        end if
      next
      Response.Write("</td></tr></table></div>")
    end if
  end if

  ' Vis overskriftskollonne
  Response.Write("<div align='center'><table width='80%'><tr>")
  Listheader "Titel", "40%"
  ListHeader "Navn", "40%"
  ListHeaderC "Dato", "20%"
  ' Vis 25 linier
  if not RS.EOF then
    for intI = 1 to intMaxRSPerPage
      Response.Write("</tr><tr>")
      LinkItem RS("Titel"), "40%", "visinfo.asp?ID=" & RS("ID")
      ListItem RS("Navn"), "40%"
      ListItemC RS("Dato"), "20%"
      RS.MoveNext
      if RS.EOF then exit for
    next
  end if
  Response.Write("</tr></table></div>")
  ' Luk det hele igen
  rs.Close
  myConn.Close
Set rs = Nothing
Set myConn = Nothing

Response.Write("<hr width='90%' align='center'>")

' Knapper i bunden
Response.Write("<body><div align='center'><table width='100'><tr>")
LinkButton "Opret", "add.asp?mode=insert", "20%"
Response.Write("</tr></table></div>")

Response.Write("</body></html>")
%>

det virker:)

jeg skal nok oprette et nyt spørgsmål hvis der skulle dukke noget nyt op:)

Mvh
Fastpoin

Fino.

hej igen

jeg har lige opdaget at andre ikke kan se billederne der bliver tilføjet... jeg tjeckede om det var rigtig ved at gå en tur på biblioteket og ja det var sandt. på min egen pc kan jeg sagtens se dem, men andre kan ikke...

hvad er der galdt? jeg prøver i mellemtiden at uploade til www.friserverplads.dk for at teste og det vil virke der

heh de reklamere for deres side webdomain.dk så det kan jeg ikke..
men håber du kan finde fejlen alligevel:)

coltau...
du kender måske ikke svaret til det her? http://www.eksperten.dk/spm/170059

Her er der en Function du i første omgang kan anvende når du uploader. Lokalt (med PWS) skal du anvende den eksisterende.

function GetFileName
  Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
  if objFSO.FileExists(strID & ".gif") then
    GetFileName = strID & ".gif"
  else
    if objFSO.FileExists(strID & ".jpeg") then
      GetFileName = strID & ".jpeg"
    else
      if objFSO.FileExists(strID & ".jpg") then
        GetFileName = strID & ".jpg"
      else
        GetFileName = strID & ".gif"
      end if
    end if
  end if
  Set objFile = Nothing
  Set objSFO = Nothing
end function

Jeg kan ikke lige finde ud af hvad der er galt - men jeg tror det har noget med rettigheder at gøre.

hej igen:)

her er et til http://www.eksperten.dk/spm/171768

er du interesseret kan du kigge på dette... har lige oprettet det
http://www.eksperten.dk/spm/177070

foretrækker du laver det da din kode er let læselig:)