Evo ga!!!
Hvala najljepša majstori! Usluga još uvijek stoji, pa ako nešto mogu da napravim bilo fizički bili psihički.
Kod ide ispod, pa kako bi japanci rekli "nikad ne reci nikad" ima još jedan mali problemčić, a taj je da koju god kombinaciju ova dva upita u padajućem izborniku pogodim nikada ništa ne ispisuje nego javlja da nema ništa za ispisati kao što sam i predvidio u skripti. I kada pogodim upis točno po zapisu koji je u datoteci. Pa ako ide još malo...!
Hvala najljepša!
Evo koda kome treba, ako treba ispod je i kod sa padajućim menijima drugog asp obrasca:
<%@ language=vbscript %>
<html>
<meta name="Microsoft Border" content="tlrb, default">
<body>
<%
Dim connStr
Set connStr = Server.CreateObject("ADODB.Connection")
connStr.open = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("fileDB.mdb")
dim odabir1,odabir2
odabir1=request("cij")
odabir2=request("proiz")
dim objrs
set objrs=server.createobject("adodb.recordset")
set objrs=connStr.execute("select * from rabljeni where cijena ='odabir1' OR proizvodac ='odabir2'")
if objrs.eof then
response.write "Nije pronađen traženi podatak"
else
do while not objrs.eof
response.write "<b>" & objrs("proizvodac") & "</b><br>"
response.write "<b>" & objrs("tip vozila") & "</b><br>"
response.write objrs("godina proizvodnje") & "<br>"
response.write "Cijena: " & objrs("cijena") & "<br>"
response.write "Opis: " & objrs("opis") & "<br>"
objrs.movenext
loop
end if
objrs.close
set objrs=nothing
%>
<p ALIGN="center"><a TITLE="naslovna stranica" HREF="rabljeni.asp">povratak na
naslovnu stranicu</a></p></body>
</html>
KOD DRUGOG OBRASCA SA MENIJIMA ZA UPIT. mENIJI SU DINAMIČKI I ISPISUJU ZAPISE IZ DATITEKE:
<%
'***********************************************************************************
'Subroutine for droplist box
'
'PURPOSE: Reusable code to be called for placement of droplist box
' in a form or page
'
'PARAMETERS:
'strSQL = Defines SQL statement
'strFieldName = Defines field name in database table
'strDefault = Defines default value in droplist
'StrBoxName = Defines name of droplistbox
'strBoxTitle = Defines the title shown next to droplist box on screen
'strConn = Defines the database connection string
'***********************************************************************************
Sub Droplist(strSQL,strFieldName,strDefault,StrBoxName,strBoxTitle,strConn)
'Set Cursor
'-------------------------------------------------------------------------
Const adOpenStatic=3
' create the recordset, open it, sort, and move to first record
'-------------------------------------------------------------------------
Set rs = Server.CreateObject ("ADODB.Recordset")
rs.Open strSQL, strConn, adOpenStatic
rs.movefirst
'Ouput result to droplist box
'-------------------------------------------------------------------------
%>
<%=strBoxTitle%>
<SELECT Name = <%=StrBoxName%> SIZE="1">
<OPTION SELECTED> <%=strDefault%> </OPTION>
<%do until rs.EOF%>
<OPTION> <%=rs(strFieldName)%> </OPTION>
<%rs.movenext
loop%>
</Select>
<%
'Close and clean up
'-------------------------------------------------------------------------
rs.close
set rs=nothing
End sub
%>
<HTML>
<HEAD>
<TITLE>Droplist Box Examples</TITLE>
<META name="description" content="">
<META name="keywords" content="">
<META name="generator" content="VisualN++">
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#0000FF" VLINK="#800080">
<CENTER>
<H2> </H2>
<HR>
<FORM name="userfrm" action="posjetiocrabljeni.asp" method = "post" >
<TABLE border=0 bgcolor="#ffffff" width=100%><TR>
<TD align="left" width=35% valign="top" >
<%
strSQL = "SELECT proizvodac FROM rabljeni ORDER BY proizvodac "
strFieldName = "proizvodac"
strDefault = "odaberite proizvođaca"
StrBoxName = "proiz"
strBoxTitle = "<B>title: </B>"
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("fileDB.mdb")
Response.write ("Droplist box No. 1" & "<BR>")
Call Droplist(strSQL,strFieldName,strDefault,StrBoxName,strBoxTitle,strConn) %>
<BR>
<BR>
<HR>
<%
strSQL = "SELECT cijena FROM rabljeni ORDER BY cijena "
strFieldName = "cijena"
strDefault = "odaberite cijenu"
StrBoxName = "cij"
strBoxTitle = "<B>title: </B>"
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("fileDB.mdb")
Response.write ("Droplist box No.2" & "<BR>")
Call Droplist(strSQL,strFieldName,strDefault,StrBoxName,strBoxTitle,strConn)
%>
</TD></TR></Table><input type=submit value="Potvrdi"></Form>
</BODY>
</HTML>
Hvala najljepša!