Hjælp til Abusiness (asp)

ja?

Husk at indsætte en SQL

Det du har ændret der har du glemt at sætte et tegn. De skal nemlig se sådan ud
DBQ=d:\\webs\\vvs-grossisten.com\\access\\nyheder.mdb\"

Det tegn jeg tilføjede var bare dette \"
Har forresten selv Webhotel plads der!

Det har jeg også

Hvor har du sat et \" ?

Jeg kan ikke se noget der er lavet om I den kode han viste!

ok ok sowwe  det er \"  jeg tog dem bare ikke med ;)

det er = der er

tomsommer SQL ??  det er koden fra abusiness jeg har copy og paste

<%
response.Buffer = TRUE
response.expires = 0
  Set DataConn = Server.CreateObject(\"ADODB.Connection\")
  conStr = \"DRIVER={Microsoft Access Driver (*.mdb)};\"
  conStr = conStr & \"DBQ=d:\\webs\\vvs-grossisten.com\\access\\nyheder.mdb\"
Set rs = DataConn.Execute (\"SELECT TOP 7 * FROM nyheder ORDER BY Id DESC\")

if rs.EOF then
Response.write \"Der er ingen nyheder i databasen\"
else
Do Until rs.EOF%>

Den <%=RS(\"Dato\")%> skrev <%=RS(\"Forfatter\")%>:<br>
<%=Replace(RS(\"Nyhed\"), vbCrLf, \"<BR>\")%>

<p>
<%RS.MoveNext
Loop
end if
  DataConn.Close
  Set DataConn = Nothing



det er hele koden

<%
response.Buffer = TRUE
response.expires = 0
  Set DataConn = Server.CreateObject(\"ADODB.Connection\")
  conStr = \"DRIVER={Microsoft Access Driver (*.mdb)};\"
  conStr = conStr & \"DBQ=d:\\webs\\vvs-grossisten.com\\access\\nyheder.mdb\"
SQL = \"SELECT TOP 7 * FROM nyheder ORDER BY Id DESC\"
Set rs = DataConn.Execute (SQL)

if rs.EOF then
Response.write \"Der er ingen nyheder i databasen\"
else
Do Until rs.EOF%>

Den <%=RS(\"Dato\")%> skrev <%=RS(\"Forfatter\")%>:<br>
<%=Replace(RS(\"Nyhed\"), vbCrLf, \"<BR>\")%>

<p>
<%RS.MoveNext
Loop
end if
  DataConn.Close
  Set DataConn = Nothing
%>

kigger med i spørgsmålet :o)

tomsommer > det virker ikke

DataConn.Open conStr


  hva med den ?? den står i toppen fra AB men er ikke med i din kode TS?

laserzap > kan du ikke skrive en hel connection til databasen, for det der er problemmet er:
Set rs = DataConn.Execute (\"SELECT TOP 7 * FROM nyheder ORDER BY Id DESC\")
det er ligemeget hvordan man sætter den RS opsætning op så virker det ikke!

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:\\webs\\vvs-grossisten.com\\access\\nyheder.mdb
  strSQL = \"SELECT TOP 7 * FROM nyheder ORDER BY Id DESC\"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write \"Der er ingen nyheder i databasen\"

do while not rs.eof
on error resume next
%>
Den <%=RS(\"Dato\")%> skrev <%=RS(\"Forfatter\")%>:<br>
<%=Replace(RS(\"Nyhed\"), vbCrLf, \"<BR>\")%>
<%
rs.movenext
loop
  Conn.Close
  Set Conn = Nothing
%>

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:\\webs\\vvs-grossisten.com\\access\\nyheder.mdb
  strSQL = \"SELECT TOP 7 * FROM nyheder ORDER BY Id DESC\"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write \"Der er ingen nyheder i databasen\"
end if
do while not rs.eof
on error resume next
%>
Den <%=RS(\"Dato\")%> skrev <%=RS(\"Forfatter\")%>:<br>
<%=Replace(RS(\"Nyhed\"), vbCrLf, \"<BR>\")%>
<%
rs.movenext
loop
  Conn.Close
  Set Conn = Nothing
%>

Hmmm, jeg kører selv ASP hos ABusiness med brug af en Access database, og det ruller da fint...!!

hvad så med denne her (den kan ikke finde ud af rs.AddNew):
vi arbejder sammen med at lave systemmet!

<%
response.Buffer = TRUE
response.expires = 0
Mode = request(\"Mode\")
%>
<% if mode =\"\" then %>
<form action=\"skrivnyhed.asp?mode=gemnyhed\" method=\"POST\">
<b>Forfatter:</b><br>
<input type=\"text\" size=\"20\" name=\"Forfatter\"><p>
<b>Nyhed:</b><br>
<textarea name=\"Nyhed\" rows=\"4\" cols=\"40\"></textarea><p>
<input type=\"submit\" name=\"Send\" value=\"Send\"><p>
<a href=\"login.asp?mode=logaf\">Log af</a>
<% end if %>
<% if mode =\"gemnyhed\" then %>
<%

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:\\webs\\vvs-grossisten.com\\access\\nyheder.mdb\"
  strSQL = \"SELECT * FROM nyheder\"
set rs = Conn.execute(strSQL)

      rs.AddNew
      rs(\"Forfatter\") = Request.form(\"Forfatter\")
      rs(\"Nyhed\") = Request.form(\"Nyhed\")
      rs(\"Dato\") = date()
      rs.Update

  Conn.Close
  Set Conn = Nothing
%>
<b>Nyheden er gemt i databasen</b><p>
<% end if %>

det ville værer fedt hvis i kunne hjælpe os, da vi har prøvet at få det til at virke i et par timer nu ;)

himmelhunden > kan du ikke prøve at komme med en asp tekst hvor du lækker data ind i en database via asp!

du mangler et \" foran DBQ

nej der mangler ikke et \" foran DBQ

den der laver det sidste kan også få 30 point!