ASP kilde

fejlmeddelse?

JA jeg få åbenbart ikke sat den rigtigt ind i kilden ..

Er der slet ikke nogen der kan hjælp ..

prøv at bruge min sub rutine, erstat ditdomain med ditdomain
<%Sub GetDB()
StrProvider=\"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"\\ditdomanin\") & \"\\akvarie_db.mdb;\"

set Connect = server.createobject(\"ADODB.Connection\")
Connect.Open StrProvider
End sub%>
i det hele taget synes jeg at du skal splitte din kode op i sub rutiner så du kan få et overblik over hvad der sker
et godt program kunne være
GetDB
MakeRS
VisOversigt
Men der udover angiver du ikke hvilken fejlkode du får det ville gøre det en del nemmere.

tag denne linie med i din kode sån omkring øverst
On Error Resume Next

If Err.Number = 0 Then %>
<font size=5><i>Der var ingen fejl</i></font><p>
<% Else %>
Der var en fejl<p>
Error #<%=Err.Number%>: <%=Err.Description%><p>
<% End If %>
og skriv så hvilken fejl nr. du får.

Det sidste skulle så stå i bunden.

Har sat den sådan her

<%

  \'//              Code created by Dan Riis \"Scop Design\"
  \'//          Contact: dan.riis@e-mail.dk for more information

<%Sub GetDB()<BR>StrProvider=\"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\"
&amp; Server.MapPath(\"\\www.akvarie-galleri.dk\") &amp; \"\\akvarie_db.mdb;\"<BR><BR>set Connect
= server.createobject(\"ADODB.Connection\")<BR>Connect.Open StrProvider<BR>End
sub%><BR>
If Err.Number = 0 Then %&gt;<BR>&lt;font size=5&gt;&lt;i&gt;Der var ingen
fejl&lt;/i&gt;&lt;/font&gt;&lt;p&gt;<BR>&lt;% Else %&gt;<BR>Der var en
fejl&lt;p&gt;<BR>Error #&lt;%=Err.Number%&gt;:
&lt;%=Err.Description%&gt;&lt;p&gt;<BR>&lt;% End If %&gt;<BR>
  response.write \"<html><head><title>Artikel oversigt</title></head><body>\"
  id=request(\"id\")
  if id<>\"\" then
    set objRS = objConn.execute(\"select * from [artikler] where id=\"&id&\"\") 
    if objRS.eof then
      response.write \"Artiklen du forsøger at få vist eksistere ikke !!\"
    else
      response.write \"<B>Slægt : </B> \"&objRS(\"slagt\")&\"<br>\"
      response.write \"<B>Art : </B> \"&objRS(\"art\")&\"<br>\"
      response.write \"<B>Var : </B> \"&objRS(\"Var\")&\"<br>\"
      response.write \"<B>Populærnavn : </B> \"&objRS(\"populaernavn\")&\"<br>\"
      response.write \"<B>Familie : </B> \"&objRS(\"familie\")&\"<br>\"
      response.write \"<B>Region : </b> \"&objRS(\"region\")&\"<br>\"
      response.write \"<B>Biotop : </b> \"&objRS(\"biotop\")&\"<br>\"
      response.write \"<B>Størrelse : </b> \"&objRS(\"stoerrelse\")&\"<br>\"
      response.write \"<B>Kønsforskel : </b> \"&objRS(\"koensforskel\")&\"<br>\"
      response.write \"<B>Temperatur : </b> \"&objRS(\"temperatur\")&\"<br>\"
      response.write \"<B>Adfærd : </b> \"&objRS(\"adfaerd\")&\"<br>\"
      response.write \"<B>Social : </b> \"&objRS(\"social\")&\"<br>\"
      response.write \"<B>Foder : </b> \"&objRS(\"foder\")&\"<br>\"
      response.write \"<B>Opdræt : </b> \"&objRS(\"opdraet\")&\"<br>\"   
      response.write \"<B>Kommentar : </b> \"&objRS(\"kommentar\")& \" \"
      response.write \"<br>\"
      response.write \"<br>\"
      response.write \"<img src=\"\"/akva/images/\"&objRS(\"grafik\")&\".jpg\"\">\"
      end if
    objRS.close : set objRS=nothing
  else
    set objRS = objConn.execute(\"select * from [artikler] order by art asc \")
      if objRS.eof then
        response.write \"<font color=\"\"blue\"\">Der var desvære ingen artikler i øjeblikket.</font>\"
      else
          do while not objRS.eof
            response.write \"<a href=\"\"default.asp?target=0&id=\" & objRS(\"id\") & \"\"\">\" & objRS(\"art\") & \" - \" & objRS(\"populaernavn\") & \"</a><br>\"
            objRS.movenext
        loop
      end if
    objRS.close : set objRS=nothing
  end if
  response.write \"</body></html>\"
  objConn.close : set objConn=nothing
%>
Og få denne

Microsoft VBScript compilation error \'800a0400\'

Expected statement

/akva/Art-Artikelsys/default.ASP, line 6

<%Sub GetDB()<BR>StrProvider=\"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\"
^

Sub kommandoer skal skrives før alt andet og er asp kode defor skal du skrive
og du skal huske at en sub og også er ASP kode derfor skal du skrive <% Sub GetDB... %>
du får skrievet et <br> tegn.
men giv mig et par minutter så skriver jeg koden om.

prøv at låne active Server pages for dummies.
i kapitel 13 eller 17 er der et godt eksempel på en database connection. jeg tror ikke at du ville lære noget af at jeg skrev koden. Du blander html og asp sammen, jeg kan sagtens lave din artikel database men så snakker vi penge. Da jeg er travlt beskæftiget med min hovedopgave.

Oki .....

Har ik nogle penge  lige nu MEN hvad skal du have for det

Hvis du har ICQ så skriv på 83695446

OK ingen hjælp

ok jeg var måske lidt for hård. jeg skal se om jeg får tid på søndag så kan det være at jeg kan lave et udkast til dig søndag. og så er det på nettet mandag. Jeg opretter en hjemmeside hvor jeg besvarer spørgsmål

ok