ASP.NET Forum

**sici22** · 02-20-2006, 08: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.