% Set objConn = Server.CreateObject ("ADODB.Connection") openStr = "driver={Microsoft Access Driver (*.mdb)};" &_ "dbq=" & Server.MapPath("board.mdb") objConn.Open openStr, "", "" Set objRs = Server.CreateObject ("ADODB.Recordset") SQL = "SELECT * FROM tblboard Where id=" SQL = SQL & request("grp") objRs.Open SQL, objConn, adOpenKeyset, adLockReadOnly, adCmdText strTemp = objRs("subject") strTemp = replace(strTemp,chr(32)," ") %>
|
|
||||