I have an image and would like to get the Pixel Values when a user click on it. So when they click on the screen or image it would read say 134-349 Then be able to save those values in an Access database. I can probably do the database part.
I just need to get the X-Y values out somehow.
I know how to do this in VB/VBA but Vbscript Helps is #!@#!$$~
Here is my code so far
-------------------------------------------
<html>
<%@ Language=VBScript %>
<head>
<title>Tampa Convention Center</title>
</head>
<%
XYValue=request.querystring("Vendor"
Dim x, y, dash
Dash = instr(1, XYValue, "-"
x = Left(XYValue, 3)
y = Right(XYValue, 3)
response.write("<img src='Star1.gif' style='position:absolute;left:"& x & ";top:" & y &"'>"
%>
<script Language="VBScript"><!--
Sub Grid_OnMouseDown
Set theForm = document.FrontPage_Form2
'theForm.ImageXY.value = theForm.Grid.XValue
msgbox "Go it " & X & " - " & Y
End Sub
--></script>
<form method="GET" action="TradeShow2003.asp" name="FrontPage_Form2">
<input type="hidden" name="XY" size="9" Value=<%=XYValue%>>
<select size="1" name="Vendor">
<option selected>Choose a Vendor</option>
<option value="280-285">American CompuSystems 511</option>
<option value="320-470">The Academy 503</option>
<option value="105-410">AIIM-Gulf Coast Chapter 202</option>
<option value="280-285">American CompuSystems 511</option>
</select>
<input type="submit" value="Find booth" name="Find">
<input type="text" name="ImageXY" size="20">
<p><img border="0" src="images/TpaConCtr.jpg" name="Grid"></p>
<p>Copyright 2001, BarcodeONE Corporation </p>
</html>
-----------
DougP, MCP
Visit my WEB site to see how Bar-codes can help you be more productive
I just need to get the X-Y values out somehow.
I know how to do this in VB/VBA but Vbscript Helps is #!@#!$$~
Here is my code so far
-------------------------------------------
<html>
<%@ Language=VBScript %>
<head>
<title>Tampa Convention Center</title>
</head>
<%
XYValue=request.querystring("Vendor"
Dim x, y, dash
Dash = instr(1, XYValue, "-"
x = Left(XYValue, 3)
y = Right(XYValue, 3)
response.write("<img src='Star1.gif' style='position:absolute;left:"& x & ";top:" & y &"'>"
%>
<script Language="VBScript"><!--
Sub Grid_OnMouseDown
Set theForm = document.FrontPage_Form2
'theForm.ImageXY.value = theForm.Grid.XValue
msgbox "Go it " & X & " - " & Y
End Sub
--></script>
<form method="GET" action="TradeShow2003.asp" name="FrontPage_Form2">
<input type="hidden" name="XY" size="9" Value=<%=XYValue%>>
<select size="1" name="Vendor">
<option selected>Choose a Vendor</option>
<option value="280-285">American CompuSystems 511</option>
<option value="320-470">The Academy 503</option>
<option value="105-410">AIIM-Gulf Coast Chapter 202</option>
<option value="280-285">American CompuSystems 511</option>
</select>
<input type="submit" value="Find booth" name="Find">
<input type="text" name="ImageXY" size="20">
<p><img border="0" src="images/TpaConCtr.jpg" name="Grid"></p>
<p>Copyright 2001, BarcodeONE Corporation </p>
</html>
-----------
DougP, MCP
Visit my WEB site to see how Bar-codes can help you be more productive
