Förord

Nu är det dags att bygga ihop html-sidan så att den kan testköras som ett komplett program. De tidigare exempel som visats slås nu samman och bildar programmet sokmotor.asp

Innehåll

<%
selitem = request("soktyp")
if selitem = "" then SelItem = 1
sokText = request("soktext")
%>

Söktext
Kategori		<%if selitem=1 then%>fritext...<%else%>fritext...<%end if%> <%if selitem=2 then%>firmanamn...<%else%>firmanamn...<%end if%> <%if selitem=3 then%>land...<%else%>land...<%end if%>

 

<%
if sokText <> "" then

set con = server.createobject("ADODB.Connection")
set rst = server.createobject("ADODB.Recordset")
con.connectionstring = "{Microsoft Access Driver (*.mdb)};DBQ=c:\nwind.mdb"
con.open "nwind"

set rst = con.execute("select count(*) from customers")

if not (rst.eof or rst.bof) then
response.write "antal poster:" & rst(0)
else
response.write "inga poster funna"
end if

set rst=nothing
set con=nothing

end if
%>




Programmet som visas ovan exemplifierar det som vi försökt åstakomma- nämligen att låte söktexten stå kvar i textboxen samt att visa det som valts i listboxen när man trycker på sökknappen. För att avsluta denna testen skall vi nu koppla upp vår databas och ställa en sql-fråga och presentera ett resultat.

Då man kör asp-sidan första gången så kan vi använda oss av soktext variabeln för att kontrollera om den är tom eller inte. Om det INTE står någon text så är det troligast så att sidan inte körts tidigare och då väntar vi med att ansluta till databasen och ställa vår fråga. Om det däremot anges något i textrutan- kommer denna programdel köras (som du ser längst ner i exemplet).

0 Kommentarer

Skriv en kommentar på artikeln

Ditt betyg på artikeln

UtmärktLäsvärdIntressantMindre braDålig

Kommentar: