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.
ma.......Tipo non corrispondente: 'aMessagesBLI'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 %>
![]()

....un aiuto. Ho personalizzato un codice della miseria e va tutto bene tranne questa parte qua:
Rispondi quotando