<% set cn = server.CreateObject("ADODB.Connection") cn.CursorLocation = 3 cn.Open "Provider=MSDASQL;Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=test6;UID=root;PWD=;OPTION=16386;" cn.Execute "DROP TABLE IF EXISTS bug30590" cn.Execute "CREATE TABLE bug30590 (id int not null primary key auto_increment,test_text text, test_int int, test_char char(50));" cn.Execute "INSERT INTO bug30590 (test_text, test_int, test_char) values ('this is a test', '1234', 'this is another test');" Set oRS = cn.Execute("select * from bug30590") response.Write ("

") While Not oRS.EOF response.Write ("
• Text Ref 1: |s|" & oRS("test_text") & "|e|
") response.Write ("
• Text Ref 2: |s|" & oRS("test_text") & "|e|
") response.Write ("
• Text Ref 3: |s|" & oRS("test_text") & "|e|
") response.Write ("
• Int Ref 1: |s|" & oRS("test_int") & "|e|
") response.Write ("
• Int Ref 2: |s|" & oRS("test_int") & "|e|
") response.Write ("
• Int Ref 3: |s|" & oRS("test_int") & "|e|
") response.Write ("
• Char Ref 1: |s|" & oRS("test_char") & "|e|
") response.Write ("
• Char Ref 2: |s|" & oRS("test_char") & "|e|
") response.Write ("
• Char Ref 3: |s|" & oRS("test_char") & "|e|
") oRS.MoveNext Wend response.Write ("

") cn.Close Set cn = Nothing %>