Ciao ragazzi.... ....un aiuto. Ho personalizzato un codice della miseria e va tutto bene tranne questa parte qua:
Il problema è che ho un campo in più (chi (in rosso)) che voglio passare tramite querystring.
codice:
     
     set objconn = server.createobject("adodb.connection")
     objconn.open strconn
     strSQL = "Select * from Message where DueDate = #" &dtDate  &"#  order by DueDate"
     set objREC = objConn.Execute(strSQL)
     
     Redim aMessages(48)
     Redim aMessageContent(48)
     Redim aMessageMod(48)
     Redim aMessageBli(48) 
 '--------------------------------
 For I = 8 to 12 step 0.5
  if I=int(I) then
     		'strInit=I & ":00"
     		
  else
  StrInit=int(I) & ":30"
     		
   end if
 
 
   aMessages(I*2) = ""
   aMessageContent(I*2) = ""
   aMessageMod(I*2) = ""
   aMessageBli(I*2) = "" 
Next

Next
     Do While NOT objREC.EOF 
        aMessages(objREC("DueTime")) = objREC("Subject")
        aMessagesBLI(objREC("DueTime")) = objREC("chi")         aMessageMOD(objREC("DueTime")) = objREC("LastModified")
        aMessageContent(objREC("DueTime")) = objREC("Content")
        objREC.MoveNext
     Loop   


       objrec.close
       objconn.close
       set objrec = nothing
       set objconn = nothing 

     For I = 8 to 12 step 0.5
     	if I=int(I) then
     		strInit=I & ".00"
     		strAdder=I & ".30"
     	else
     		strInit=int(I) & ".30"
     		strAdder=(int(I)+1) & ".00"
       end if

       Response.Write "<TR><TD ALIGN='RIGHT' CLASS='MARGIN' WIDTH=100>"&StrInit&"-" &strAdder  _
       &"</TD><TD WIDTH='30' CLASS='CONTENT'>" &aMessageMOD(I*2) &"</TD><TD WIDTH='100' CLASS='SUBJECT'>" &aMessages(I*2) _
       &"</TD><TD WIDTH='300'>" &aMessageContent(I*2) &"</TD><TD WIDTH=40><a href='editmessages.asp?code=1&bre="&aMessagesBLI &"&time="&(I*2)&"&date=" _
       &dtDate &"'>[img]./images/modify.gif[/img]</a></TD></TR>"
     Next 
     %>
ma.......Tipo non corrispondente: 'aMessagesBLI'