<%
'dim con,vrs
'dim x
'set con = Server.CreateObject("ADODB.Connection")
'con.open "Dsn=textile;uid=textile;pwd=waXQpf15;"
'set vrs = Server.CreateObject("ADODB.Recordset")
'vrs.open "select * from visit",con
'vrs.movefirst
'x=clng(vrs("MedNum"))+1
''vrs(1)=clng(vrs(1))+1
''vrs.update
'con.execute("update visit set MedNum=" & x)
%>