Access hen data fra access

jeg har lavet filen PicData.asp men den kommer med en fejl :
HTTP 500 - Intern serverfejl
Internet Explorer

Du skulle gerne få en bedre fejl kode/beskrivelse ved at slå denne fra i IE:

funktioner -> internetindstillinger -> avanceret -> fjern kryds i "vis meddelelse om uskadelige http-fejl"

Men du skal havde rette
Do
...
...
Loop While Not rs.EOF

Til dette for at undgå fejl hvis recordsetet er tom fra starten af:

Do While Not rs.EOF
...
...
Loop

ok hva betyder ...

undskyld jeg ikke kan tyde det

Det betyder alt det kode du har imellem linjen Do og linjen Loop While Not rs.EOF

ahh ok

men det virker ikke satdigvæk samme fejl

mit webhotel
ser sådanne ud
/db
/wwwroot

min fil ligger i wwwroot og databasen ligger i db

Prøv som beskrevet i 17/08-2004 17:42:30

Ok så kan du ikke connecte med Server.Mappath.
Server.Mappath kan kun give en folder som er inde i folderen /wwwroot.
Du er nød til at skrive det som "d:\xxx\xxx\db\picdata.mdb" i connection strengen.

Du kan finde stien ved at lave en lille fil hvor du har dette styk kode som skriver stien til wwwroot:
<%
Response.Write Server.Mappath("/")
%>

Det giver måske:
d:\homes\domainnavn_dk\wwwroot

Så kaan du skifte wwwroot ud med db, og skrive din connection streng som:

DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=d:\homes\domainnavn_dk\db\picdata.mdb"

kan det være fordi mit webhotel bruger mySQL

Bruger du mySQL eller Access som database?
Hvilket web-hotel har du?

jeg bruger cliche som webhotel
og access som database

ok så betyder det ikke noget de også tilbyder mySQL.
Prøv det sidste jeg har forslået: 17/08-2004 17:54:53

er rettet til

men samme fejl

Hvad er fejlen nu?

det samme som det var fra starten

Har du gjort som jeg beskrev 17/08-2004 17:42:30
Så skulle du nemlig få den rigtige fejl kode + linje nummer.

her er det tilrettet

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("D:\web\blueeye.dk_p7e8vv\db\picdata.mdb")
Conn.Open DSN

' SQL forespørgsel
strSQL = "Select * from Tabel1"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

' Gennemløb Recordset (rs) med en løkke
Do While Not rs.EOF

  ' Udskriv værdien af kolonnen links
  Response.Write rs("Links") & "<br>"

  ' Gå til næste Record i rs
  rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>

ups

Server.MapPath() error 'ASP 0172 : 80004005'

Invalid Path

/PicData.asp, line 5

The Path parameter for the MapPath method must be a virtual path. A physical path was used.

uppsss smid lige et svar

så du kan få points

fejlen er rettet

nu kommer den med en fejl
Microsoft VBScript compilation error '800a0401'

Expected end of statement

/PicData.asp, line 17

Response.Write "<img src="" & rs("Link") & "">" "<br>"

Ok :)

Prøv sådan her for at udskrive en " skal man skrive to "" efter hinanden:
Response.Write "<img src=""" & rs("Link") & """>" "<br>"

:) og så lige få <br> ind i strengn:

Response.Write "<img src=""" & rs("Link") & """><br>"