Query from table products with ASP
<%
dim exec
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "PROVIDER=SQLOLEDB;UID=msnemoticon;PWD=cyber911;DATABASE=Bates141_MSN"
'exec="insert into tbl_rating(intthemeid,intscore,intvotes,inttotalscore)values('PSP00001',0,0,0)"
'conn.execute exec
'This code block will create a recordset
Set rs = Server.CreateObject("ADODB.Recordset")
'rs.Open "select * from tbl_rating",conn, 1, 3
Dim fieldsArray(4)
fieldsArray(0) = "intthemeid"
fieldsArray(1) = "intscore"
fieldsArray(2) = "intvotes"
fieldsArray(3) = "inttotalscore"
Dim values(4)
values(0) = "asdasd"
values(1) = 1
values(2) = 1
values(3) = 1
'rs.AddNew fieldsArray, values
'rs.Update
SQL = "select * from tbl_rating"
rs.open SQL, conn
'will iterate to display the records got from the database
While Not rs.EOF
response.write(rs("intthemeid") & " " & rs("intscore") &" "& rs("intvotes") &" "& rs("inttotalscore") &"
")
'response.write(rs("a"))
rs.MoveNext
Wend
'closes the connection
rs.close
conn.close
Set rs = Nothing
Set conn = Nothing
%>