Importing RecordSet to .asp file

[tolis]

Hello !

I need a bit of big help please

I have the site http://www.easytraveller.gr where i have .asp files like http://www.easytraveller.gr/acropole_delphi.asp .
In the asp file I import dynamically the dates, nights and number of persons from an access db.
I have created a recordset that brings back the contents of the table that shows the room types the periods and the rates, but I do not know how to import this recordset dynamical in the file. If I create a list/menu box that shows only one line. Where and how I can import this recordset or is there another way?

Regards
Tolis

[Smokie]

Code: Select all

<%
Do While Not objRS.EOF
  Response.Write("<option value="""&objRS("value")&""">"&objRS("name")&"</option>")
objRS.MoveNext
Loop
%>

[tolis]

Sorry Sam
I am a little confused
the recordset with the information is rsHerodionRates

Where in the code

PHP: Select all

<%
Do While Not objRS.EOF
Response.Write("<option value="""&objRS("value")&""">"&objRS("name")&"</option>")
objRS.MoveNext
Loop
%> 

I will put the rsHerodionRates ?

Regards
Tolis

[benbramz]

Code: Select all

<%
Do While Not rsHerodionRates.EOF
Response.Write("<option value="""&rsHerodionRates("value")&""">"&rsHerodionRates("name")&"</option>")
rsHerodionRates.MoveNext
Loop
%>

[Smokie]

keep earning them brownie points ben!

[benbramz]

did i earn one just then? lol

[Rob]

NO!!! hahaha...

But to get back on topic.... Tolis, I think you'll find Benbramz code will suffice!

PS... rememeber to use code tags.. eg. [code]your code here[/code]

[tolis]

Hello everybody

Your help is very usefull
Must be my mistake becasue I did not say that the ercordset to be inserted was a whole table. So following your instructions was getting Microsoft Jet database error
I finaly found the solution. Using the Dreamweaver went
Insert>Application Objects>Dynamic Data>Dynamic Table and here I gave the Recordset. Now is working perfet and you can check it at
http://easytraveller.gr/herodion_athens.asp
Thank you again
Tolis

[tolis]

I forgot to put the code

<%
Dim rsHerodionRates
Dim rsHerodionRates_numRows
Set rsHerodionRates = Server.CreateObject("ADODB.Recordset")
rsHerodionRates.ActiveConnection = MM_Connection1_STRING
rsHerodionRates.Source = "SELECT Room, PERIOD1, PERIOD2, PERIOD3, PERIOD4 FROM herodion"
rsHerodionRates.CursorType = 0
rsHerodionRates.CursorLocation = 2
rsHerodionRates.LockType = 1
rsHerodionRates.Open()
rsHerodionRates_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rsHerodionRates_numRows = rsHerodionRates_numRows + Repeat1__numRows
%>

Bye
Tolis