Refresh Combobox

**sici22** · 02-20-2006, 07:30 AM

Hi,

I would like to ask you about combobox refershing. My code is:

Code:

<title>none</title>
<body>

<table border="1" width="100%" cellspacing="0" cellpadding="2">
<%
dim m_DB
dim RS

set m_DB = Server.CreateObject("ADODB.Connection")
set RS = Server.CreateObject ("ADODB.Recordset")

m_DB.ConnectionString = "dsn=Test;"
m_DB.Open

i=1
%>
Select Site Code 
<select name="site" style="width: 250px" onchange="txt();">

<%if i=1 then%>
<%

RS.Open "select * from mrs ORDER by mrs.sites", m_DB

'mezok
do while not RS.EOF 

response.write("<option value='" & RS("sites") & "'>" & RS("sites"))

RS.MoveNext
loop
RS.Close

%>
<%end if%>

</select>
<script language="VBScript">
dim prevscode


function txt()

'msgbox "sfs"
'msgbox site.value
prevscode = site.value
table.value = site.value

End function

function adding()

Dim Con
Dim strQuery 
Dim rst 
 
Set con = CreateObject("ADODB.Connection") 
con.Open "Provider=sqloledb;Data Source=eurdsql1; Initial Catalog=EURsEDD_MRS;Integrated Security = SSPI;" 

strQuery="INSERT INTO sites VALUES ('" & table.value & "')" 
Set rst = con.Execute(strQuery) 
table.value=""
rst.close
con.close

end function

</script>

</table>

<br>
<table border="1" width="80px" cellspacing="1" cellpadding="2">
<input type="text" name="table" value="" style="width: 90px">
</table>
<br>
<input type="submit" name="action1" value="Insert Site" onclick="adding()" style="width: 90px">
<input type="submit" name="action2" value="Delete Site" onclick="deletes()" style="width: 90px">
<input type="submit" name="action3" value="Modify Site" onclick="ch()" style="width: 90px">

</body>

How can O silve, that the values of the combobox always refresh from database, what I declare at the top, when I click on a "Refresh" button?

Thanks.

**chrishirst** · 02-21-2006, 02:19 PM

not sure what you are asking, and your code above won't work at all because you are trying to run server side code clientside

**dbzanime** · 04-19-2008, 02:50 PM

Quote:

Originally Posted by chrishirst

not sure what you are asking, and your code above won't work at all because you are trying to run server side code clientside

he's right

02-21-2006, 02:19 PM	#2 (permalink) Re: Refresh Combobox
chrishirst Super Moderator Posts: 10,783 Location: Blackpool. UK Talkupation:	not sure what you are asking, and your code above won't work at all because you are trying to run server side code clientside __________________ Chris. ->> Links are advertising NOT optimising!! <<- Indifference will be the downfall of mankind, but who cares? Code Samples \| People Counting System