Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
<script language="JavaScript">
function getvalue(){
var s = document.calc.x_warrid;
var myVar = s.options[s.selectedIndex].text;
document.form.x_textbox.value = myVar;
}
</script>
<%
combo = "<select name='combo' id='select' onchange = 'getvalue()'>
<option value=''>None</OPTION>"
sqlwrk = "SELECT `dataid`, `data` FROM `yourtable`"
Set rswrk = Server.CreateObject("ADODB.Recordset")
rswrk.Open sqlwrk, conn, 1, 2
If Not rswrk.Eof Then
datawrk = rswrk.GetRows
rowswrk = UBound(datawrk, 2)
For rowcntwrk = 0 To rowswrk
combo = combo & "<option value='" & datawrk(0, rowcntwrk) & "'"
If CStr(datawrk(0, rowcntwrk)&"") = CStr(comboid&"") Then
combo = combo & " selected"
End If
combo = combo & ">" & datawrk(1, rowcntwrk) & datawrk(2, rowcntwrk) & "</option>"
Next
End If
rswrk.Close
Set rswrk = Nothing
combo = combo & "</select>"
Response.Write combo
%>
<input type="text" id="x_textbox" name="x_textbox" value="<%= Server.HTMLEncode(x_textbox&"") %>">