dynamic links

trc · May 22, 2001

How can I make a link value based on the selection in a menu? What I am trying to do is:
1) determine if a record in a database has multiple records
2) If it does display a menu
3) have a url based on the selection in the menu

1 and 2 are done. How do I do number 3?

Here is my code

<body bgcolor="#ffffff" text="#000000" leftmargin="0" marginwidth="0" marginheight="0" topmargin="0">

<table width="500" height="350" background="images/showitem.gif">
<tr>
<td height="22"> </td>
<td height="22">
<%
'on error resume next
dim intProductID
intProductID = clng(0 + Request("PID&quot

)
if (intProductID > 0) then
dim adoDBConnect
Set adoDBConnect = Server.CreateObject("ADODB.Connection&quot

adoDBConnect.Open "DRIVER=Microsoft Access Driver (*.mdb);FIL=MS Access;DBQ=" & Server.MapPath("/database/20010208.mdb&quot

, "admin", ""

dim recProduct
set recProduct = Server.CreateObject("ADODB.RecordSet&quot

recProduct.CacheSize = 10
recProduct.CursorLocation = 3
recProduct.Open "SELECT * FROM queryPRODUCTLIST WHERE (queryPRODUCTLIST.ID=" & intProductID & &quot

;", adoDBConnect
if ((err.number = 0) and (not (recProduct.BOF and recProduct.EOF))) then
dim intTempUID
dim strTempNAME
intTempUID = recProduct("ID&quot

strTempNAME = replace(recProduct("NAME&quot

, "'", "\'&quot

%>
<script>


</script>
</td>
<td nowrap valign="top" height="22"> </td>
<td valign="top" height="22" width="100%"><font face="times new roman, times" size="4" color="#ffffff" style="text-decoration: none;"><b>
<% = strTempNAME %>
</b></font></td>
<td height="22"> </td>
</tr>
<tr>
<td height="27" valign="bottom"> </td>
<td height="27" colspan="4" valign="bottom">
<div align="right"><font face="arial" size="2" color="#CC3300"> <b>
<% = recProduct("STYLES&quot

%>
</b></font></div>
</td>
</tr>
<tr>
<td height="21"> </td>
<td height="21"> </td>
<td nowrap valign="top" height="21" colspan="3"> </td>
</tr>
<tr>
<td height="250"> </td>
<td height="250">
<p>
<% if (recProduct("PICTUREURL&quot

.ActualSize > 0) then %>
<img src="<% = recProduct("PICTUREURL&quot

%>" width="200" height="250" hspace="0" border="0" alt="<% = strTempNAME %>"></p>
<p> </p>
</td>
<td nowrap valign="top"> </td>
<td valign="top" height="250" width="100%">
<% end if %>
<table align="center" border="0" cellpadding="2" cellspacing="0" width="100%" height="250">
<tr>
<td height="200" valign="top">
<form name="form1" method="post" action="/sendmsg.asp?command=<% = Server.URLEncode("/secure/editcart.asp?action=additem&pid=39&quot

%>" target="_parent">
<font face="arial" size="2" color="#000000">
<% = recProduct("DESCRIPTION&quot

%>
</font><br><br>
<font face="arial" size="2" color="#000000">
<%if (recProduct("Prodmultiple&quot

) then %>
<input type="submit" name="Submit" value="Submit">
<%Else%>
<a href="/sendmsg.asp?command=<% = Server.URLEncode("/secure/editcart.asp?action=additem&pid=" & intTempUID)%>" target="_parent">Buy
this item</a>
<%End IF%>
</font>
<%if (recProduct("Prodmultiple&quot

) then
dim NameTemp
dim recVersion
NameTemp = recProduct("Name&quot

set recVersion = Server.CreateObject("ADODB.Recordset&quot

recVersion.ActiveConnection = "DRIVER=Microsoft Access Driver (*.mdb);FIL=MS Access;DBQ=" & Server.MapPath("/database/20010208.mdb&quot

&""
recVersion.Source = "SELECT * FROM queryPRODUCTLIST WHERE Name like '" + NameTemp + "'ORDER BY STYLES ASC "
recVersion.CursorType = 0
recVersion.CursorLocation = 2
recVersion.LockType = 3
recVersion.Open()

%>
<select name="select" onChange="updatePID(this)">
<%
While (NOT recVersion.EOF)
%>
<option value="<%=(recVersion.Fields.Item("ID&quot

.Value)%>" <%if (CStr(recVersion.Fields.Item("ID&quot

.Value) = CStr(recProduct.Fields.Item("ID&quot

.Value)) then Response.Write("SELECTED&quot

: Response.Write("&quot

%>><%=(recVersion.Fields.Item("STYLES&quot

.Value)%></option>
<%
recVersion.MoveNext()
Wend
If (recVersion.CursorType > 0) Then
recVersion.MoveFirst
Else
recVersion.Requery
End If
%>
</select>
<%End If%>
</form>
</td>
</tr>
<tr>
<td align="right" valign="top" height="20"><font face="arial" size="2" color="#000000"><b>-
<a href="javascript:window.close();" onMouseOver="window.status='Close'; return true;">Close</a>
-</b></font></td>
</tr>
</table>
</td>
<td>
<%
recProduct.Close
else
%>
<font color="#000000" face="verdana, arial" size="2" style="font-size: 11px;">The
requested product could not be found in the product catalog.</font>
<%
end if
adoDBConnect.Close
else
%>
<font color="#000000" face="verdana, arial" size="2" style="font-size: 11px;">The
requested product could not be found in the product catalog.</font>
<%
end if
%>
</td>
</tr>
</table>
</body>

Deltaflyer · May 23, 2001

Stick this in a blank page and see if it helps you.
<script>
function produceurl()
{
if (radio[0].checked == true)
{
//href.location ='

http://www.yahoo.com'

alert('You would have been sent to

http://www.yahoo.com')

}
if (radio[1].checked == true)
{
//href.location ='

http://www.megago.com'

alert('You would have been sent to

http://www.megago.com')

}
if (radio[2].checked == true)
{
//href.location ='

http://www.msn.com'

alert('You would have been sent to

http://www.msn.com')

}
}
</script>
<body>
<input type=radio name=radio value=1>

http://www.yahoo.com<br>

http://www.megago.com<br>

http://www.msn.com<br>

<input type=button value=Submit onclick=produceurl()>
</body>

if not call me, DeltaFlyer ;-)

DeltaFlyer - The Only Programmer To Crash With Style.

trc · May 23, 2001

Thanks, I like the idea. It is along the lines of something I tried. The problem is that this page is a details page that will have many, maybe even a couple of hundred, different items to display. Some with several different choices. I guess I would have to create a dynamic array and create the URl that way.

What I was thinking is that I create a function that changes the value of a variable when the choice in the menu is changed. In the url I would just tack on the variable. The problem is that I do not know how to attach the variable.

One problem that I ran into was that I needed an onclick event in the URL that retrieved the entire url. The problem is that I am not great with JavaScript so I do not understand how to do it.

Blah. I don't know.

Deltaflyer · May 23, 2001

Have you got a rough draught of what the page is meant to look like, i.e. HTML only?? If so then i may be able to help you come up with a solution.

If not is you could throw one together and dump it on here then i will probaly be able to help you.

Catchya later, DeltaFlyer
The Only Programmer To Crash With Style. LOL

trc · May 24, 2001

I appreciate the help but I am not sure what you mean. The code is above so would you like to see an image of the page?

Deltaflyer · May 25, 2001

You said that there were possiby many hundreds of select boxes that would be included. However if you want to do the dynamic array thing then all you would have to do is using the onclick javascript populate a hidden text box with the overall variable and then with javascript do a window.location = "

http://www.whatever.com?"

+ document.form.hidden.value and that would push all your variables through to the next page. DeltaFlyer
The Only Programmer To Crash With Style. LOL

trc · May 25, 2001

I don't think I explained myself very well. This page displays info regarding products selected on a previous page. Some products have only one subtype while others have multiple subtypes.

When a product has multiple subtypes the user must be able to choose which one they want by using a drop down menu. This value then needs to be passed onto the next page which is the shopping cart info page via an html link.

The problem for me is how do I get the value from the menu into the url. I think the problem is the combination of Vb and javascript.

Here is the code for the link that works.

<a href="/sendmsg.asp?command=<% = Server.URLEncode("/secure/editcart.asp?action=additem&pid=" & intTempUID)%>" target="_parent">Buy this item</a>

intTempUID is a vbscript variable.

I think I need to do something similar to what has been done here. By this I mean use a variable initially set to the value of the initial subtype of product. I then need an onChange function to monitor the menu to see if it changes.

This is where I fall apart. I want to use the javascript onChange() function, therefore a javascript variable, but I have no idea hoe to attach this variable to the URL because it has vbscript in it.

Well DeltaFlyer, if you have continued to read this rambling message then thank you and if you can help thank you infinitely.

trc

johnnydaboy · May 26, 2001

trc

Try this on:

If you set a global variable "url_start" to be something like "

http://www.yourdomain.com/sendmsg.asp?command="

and another global "url_end" (only if you need it) then you can use:

<select onChange="url_start = url_start + this.options[selectedIndex].value;"> // the value of whatever item is selected here gets concatenated with your base URL
<option value="red_thing">Red Thing
<optoin value="blue_thing">Blue Thing
</select>

Then for your Buy link:
<a href="javascript:window.location.href=url_start + url_end;">Buy this</a>

Hope this helps,
johnny

trc · May 27, 2001

Thank you. I think that might work. I will give it a try.

trc · May 29, 2001

I tried what you suggested but it did not work. Thanks anyway. The problem is the mix of javascript and vbscript in the url.

<a href="/sendmsg.asp?command=<%= Server.URLEncode ("/secure/editcart.asp?action=additem&pid=" & vbSelect_ID)%>" target="_parent"> this item</a>

I am close. I can set the intitial value. Then I amtrying to use javasrcipt/vbscript function calls to set the new value. But I cannot set the value once the option is selected. I keep getting an "Object Expected" error. Any suggestion would be appreciated.

Here is the code.

<script language="JavaScript">
function jsGetValue(jsSel_val){
vbSetValue(jsSel_val)
}
</script>

<%

Function vbSetValue(vbSelVal)
vbSelect_ID=vbSelVal
End Function
%>

<select name="Select" onChange="jsGetValue(this.options.value);">

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

dynamic links

trc

MIS

Deltaflyer

Programmer

trc

MIS

Deltaflyer

Programmer

trc

MIS

Deltaflyer

Programmer

trc

MIS

johnnydaboy

Technical User

trc

MIS

trc

MIS

Similar threads

Part and Inventory Search

Sponsor