Avatar billede dominodevil Nybegynder
20. september 2004 - 21:50 Der er 6 kommentarer og
1 løsning

Hvorfår jeg den til at vælge Forsiden?

hvis i kigger på www.bredan.net, så har jeg lavet en hjemmeside hvor man selv kan rediger den!

Men hvordan får jeg seve forsiden til at komme frem første gang man går ind??

Den skal vel bare tage den med den laveste "RANK"... har nemlig lavet det sådan at man fortæller rækkefølgen med hjælp af Ranks...!
Avatar billede Jman Praktikant
20. september 2004 - 22:06 #1
Du spørger efter et ID, der ikke findes.
Du bør derfor have et check inden din SQL:

if request.querystring("id") = "" then
og så den alternative select (eksempelvis "select top 1 from [nyheder] order by id desc;" = sidste nye)
else
din nuværende select
end if
Avatar billede dominodevil Nybegynder
20. september 2004 - 23:19 #2
Har prøvet det her men det virker ikke helt!!


<%Dim ADO_Connection
Dim SQL_STRING
Dim rsShowpage
Dim rsOverskrift


set ADO_Connection = server.Createobject("ADODB.Connection")
ADO_Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../cgi-data/db.mdb")
Set rsOverskrift= Server.CreateObject("ADODB.Recordset")

if request.querystring("id") = "" then
    SQL_STRING= "SELECT * FROM page WHERE ID=" "'10'"
else
    SQL_STRING= "SELECT * FROM page WHERE ID=" & Request.QueryString("ID")

end if
    rsOverskrift.open SQL_String, ADO_Connection
%>
Avatar billede Jman Praktikant
20. september 2004 - 23:32 #3
Der er nok fordi din ID er et talfelt

<%Dim ADO_Connection
Dim SQL_STRING
Dim rsShowpage
Dim rsOverskrift


set ADO_Connection = server.Createobject("ADODB.Connection")
ADO_Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../cgi-data/db.mdb")
Set rsOverskrift= Server.CreateObject("ADODB.Recordset")

if request.querystring("id") = "" then
    SQL_STRING= "SELECT * FROM page WHERE ID=10"
else
    SQL_STRING= "SELECT * FROM page WHERE ID=" & Request.QueryString("ID")

end if
    rsOverskrift.open SQL_String, ADO_Connection
%>
Avatar billede dominodevil Nybegynder
20. september 2004 - 23:33 #4
Aha!.... takker!
Avatar billede dominodevil Nybegynder
20. september 2004 - 23:42 #5
Nææ... det virkede heller ikke!!!
Avatar billede dominodevil Nybegynder
20. september 2004 - 23:42 #6
<%Dim ADO_Connection
Dim SQL_STRING
Dim rsShowpage
Dim rsOverskrift


set ADO_Connection = server.Createobject("ADODB.Connection")
ADO_Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../cgi-data/db.mdb")
Set rsOverskrift= Server.CreateObject("ADODB.Recordset")

if request.querystring("id") = "" then
    SQL_STRING= "SELECT * FROM page WHERE rank=10"
else
    SQL_STRING= "SELECT * FROM page WHERE ID=" & Request.QueryString("ID")

end if
    rsOverskrift.open SQL_String, ADO_Connection
%>
Avatar billede dominodevil Nybegynder
21. september 2004 - 08:58 #7
ok... der skulle bare være "" de rigtige steder...
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester