ある配列にintを挿入し、別の配列に文字列を挿入しようとしています。どういうわけか、どのように試してもintやstringを挿入できません。これがコードです
dim siteList,siteNameList, strQuery
Set oConn = Server.CreateObject("ADODB.Connection")
set oRs = Server.CreateObject("ADODB.Recordset")
oConn.Open strConnQuery
strQuery = "Select zSiteID as id, zSiteNm as Name from vSite"
set ors = oConn.Execute(strQuery)
z=0
Do While Not oRs.EOF
sID=oRs("id")
sName=oRs("Name")
if InStr(oRs("Name"),"'")>0 then
sOut = replace(strorigFileName,"'" ,"")
siteList(z)=sID
siteNameList(z)=sOut
else
siteList(z)=sID(this is where the error occurs first)
siteNameList(z)=sName
end if
z=z+1
oRs.MoveNext
Loop
oConn.Close
私はそれを別のものに変換しようとしましたが、それはまったく役に立ちませんでした。何が悪いのかわからないので、どんな情報でも大歓迎です!