두니의 일상

lecArrayValue = Request("LecNum")lecSplitedValue = Split(lecArrayValue, ",") For i=lbound(lecSplitedValue) To UBound(lecSplitedValue) If lecSplitedValue(i) "" Then lecValue = Split(lecSplitedValue(i), "^") End if strSql = "insert into nsurveyhistory(applynum, lecnum, wishlectime, surveyip) values (" & userNum & ", '" & lecValue(0) & "', '" & lecValue(1) & "', '" & Request.ServerVariables("REMOTE..

Response.ContentType = "application/vnd.ms-excel"Response.AddHeader "Content-Disposition","attachment; filename="& strToday & strTitle & strfileExtensionDim objRS               ' Record Set ObjectDim strSql                ' Query StringDim lecture_str          ' Loop CounterDim lecture_list    Dim masterNummasterNum=request("mNum")strSql =  " ~쿼리~ "Set objRS = objConnLawDB.Execute(strSql)%>     ..

set rs1 = Server.CreateObject("ADODB.COMMAND")with rs1 .Activeconnection = ObjConn .CommandText = "ProcedureName" .CommandType = adCmdStoredProc .parameters.append .Createparameter ("@task", adChar, adParamInput, 2, "00") .parameters.append .Createparameter ("@id", adVarChar, adParamInput, 8, id) .parameters.append .Createparameter ("@title", adVarChar, adParamInput, 250, "") .parameters.append ..