Error: <%=session("msg")%>
<% Set Conn = Server.CreateObject("ADODB.Connection") 'connStr = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("files/colorwize.mdb") connStr = "provider=SQLOLEDB.1;Data source=127.0.0.1\sqlexpress,54649;DATABASE=colorwize;uid=Colorwize;pwd=cp45DE3" Conn.Open connStr sql = "SELECT * FROM Careers order by [careers].[careers]" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 %> Select a career: --- Select a career --- <% do until rs.eof ID = rs("ID") career = rs("careers") %> <%=career%> <% 'R = 13-rs("R") 'RO = 13-rs("RO") 'O = 13-rs("O") 'OY = 13-rs("OY") 'Y = 13-rs("Y") 'YG = 13-rs("YG") 'G = 13-rs("G") 'BG = 13-rs("BG") 'B = 13-rs("B") 'BV = 13-rs("BV") 'V = 13-rs("V") 'VR = 13-rs("VR") rs.movenext loop %> <% rs.close %>
Suitability Sifter