<%id=request("id")
OpenStr = "driver={Microsoft Access Driver (*.mdb)};"&_
"dbq="& Server.MapPath("vote.mdb")
Set cnn1=Server.CreateObject("ADODB.Connection")
cnn1.Open OpenStr
sql="INSERT INTO vote (num,kol) VALUES ("&id&",1); "
Set rs=cnn1.Execute(sql)
%>
Новая страница 1
Ваш голос учтен!
Спасибо!