Udtræk fra Administrations modul

mener du en request?

Har du åbnet forbindelse på din asp side? Jeg har lavet følgende til et udtræk fra en nyhedsdatabase:

  Dim con, rst, strSQL

Set con = Server.CreateObject("ADODB.Connection")
Set rst = Server.CreateObject("ADODB.Recordset")

con.Open "PROVIDER=MSDASQL;" & _
"DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & Server.MapPath("/database/nyheder.mdb") & ";" & _
"DefaultDir=" & Server.MapPath(".") & ";" & _
"DriverId=25;" & _
"FIL=MS Access;" & _
"MaxBufferSize=512;" & _
"PageTimeout=5;"

strSQL = "SELECT [dato], [nyhed] " & _
"FROM [t_nyhed] " & _
"ORDER BY dato desc;"

rst.Open strSQL, con, 3, 3, 1

Do While Not rst.EOF
  Response.Write("<blockquote>" & rst("dato") & " -  " & rst("nyhed") & "<BR>" & "</blockquote>" & vbCrLf)

hvor DATO og NYHED er tabelnavne fra T_nyhed, som bliver hentet fra nyheder.mdb

håber det kan hjælpe dig lidt.

du skal selv rette "DBQ=" & Server.MapPath("stien til din database") & ";" &_

samt i linierne hvor der står DATO og NYHED og T_nyhed

Hvis jeg sætter det du har sendt der (med ændringer), ind i min standard.asp og går ind i Admin. modulet og tilføjer en ny post.

Kommer det så frem på standard.asp siden?

Jeg har det her inde på standard.asp siden:

<%

Dim Connect, Query, Id, TabelNavn

Id = Request.QueryString ("Id")

If Id < 1 Then
Id = 1
End If

overskrift1 = Request.QueryString ("overskrift1")
overskrift2 = Request.QueryString ("overskrift2")
link1 = Request.QueryString ("link1")
link2 = Request.QueryString ("link2")
link3 = Request.QueryString ("link3")
billede1 =  Request.QueryString ("billede1")
billede2 =  Request.QueryString ("billede2")
billede3 =  Request.QueryString ("billede3")
tekst1 = Request.QueryString ("tekst1")
tekst2 = Request.QueryString ("tekst2")
tekst3 = Request.QueryString ("tekst3")

TabelNavn="tekst"

Set Query = Connect.Execute("Select * From " & TabelNavn & " Where Id="& Id &"")
%>

Det dur måske slet ikke?

hvor er din response.write sætning henne? Uden den kommer der ikke noget tekst på din standard.asp

Men har du prøvet med min asp kode på din standard.asp?

Så det er "bare" response.write sætningen jeg mangler?

Jeg prøver lige med din kode...

Så kommer følgende fejl:

Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A03FB)
'Loop' var ventet
/dfaa/html/standard.asp, line 40


I dette stykke siger den at der mangler en loop:

Do While Not rst.EOF
  Response.Write("<blockquote>" & rst("dato") & " -  " & rst("nyhed") & "<BR>" & "</blockquote>" & vbCrLf)

Men hvis du gider hjælpe mig, kan du så ikke rette i min kode i stedet?

Den forstår jeg nemlig bare lidt af...

:o)

Harlis

sådan :

Do While Not rst.EOF
  Response.Write("<blockquote>" & rst("dato") & " -  " & rst("nyhed") & "<BR>" & "</blockquote>" & vbCrLf)
rst.MoveNext
Loop


-- xs

Ja, excession kom først :o)

jeg kan se at jeg ikke fik kopieret hele min asp kode.. jeg beklager.. men virker det nu?

næh, tværtimod... :o(

Slettede det hele og prøvede andre ting i stedet, hvilket heller ikke virkede, så jeg er godt desperat efterhånden!

Min database har de her felter:

Id
Overskrift
Tekst
Billede
Link

Min Standard.asp side ser nu sådan ud:
(har simpelthen fjernet alt asp pg.a. fejl. Men det skal på igen, men det er nok bedst at begynde fra 0)


<!-- #include file="databaseplacering.asp"-->
<HTML>
<HEAD>
<TITLE></TITLE>
<link rel="stylesheet" type="text/css" href="../style.css">

<style>
BODY {    scrollbar-3d-light-color:#999999;
          scrollbar-arrow-color:#ffffff;
          scrollbar-base-color:black;
          scrollbar-dark-shadow-color:#333333;
          scrollbar-face-color:#074d80;
          scrollbar-highlight-color:grey;
          scrollbar-shadow-color:black}
</style>
</head>
<BODY>


   
</BODY>
</HTML>

lukket...