% 'If Session("user") = "" Then ' Response.Redirect("../login.asp") 'End If Dim objConn, objRs, strConn, group, objRs1 Set objConn=Server.CreateObject("ADODB.Connection") objConn.Open "farbenchem", "farbenchem", "glycol0912" Set objRs = Server.CreateObject("ADODB.Recordset") Set objRs1 = Server.CreateObject("ADODB.Recordset") basic_id = Request.QueryString("id") If basic_id ="" Then Response.Redirect("basic_dyes.asp") End If strConn = "SELECT * FROM basic_dyes where ID='"& basic_id &"'" objRs.Open strConn, objConn, 2 strConn = "SELECT ID,product_name FROM basic_dyes order by product_name" objRs1.Open strConn, objConn, 2 %>
|
|