3 svar · 167 visningar · startad av Eclipse
Jag har en sida där man plockar bort poster en efter en. Men när man kommit till sista posten vill jag att man ska skicka med ytterligare ett värde till confirm.asp filen.
Jag använder getRows och tänkte att man kanske kunde skriva något i stil med:
IF myGetRow(1,1) = "" THEN...
Det fungerar givetvis inte så jag vänder mig till forumet för bättre vetande.
[b]För bättre vetande![/b]
Detta funkar:
IF UBound(myGetRow, 2) = 0 THEN response.write "XXXXXXXXXXXXXXXX"
Jag förstår inte riktigt, kan du inte bara lägga det efter att du har loopat färdigt.
Annars kan man väl göra ungefär så här
for j = 0 to ubound(myGetrows,2)
for i = to ubound(myGetrows,1)
next
if j = ubound(myGetrows,2) then
'skicka extra rad
end if
next
------------------
essentitia preter non sans multiplicandum
I detta fallet går det inte att lägga efter loopen. Jag tyckte att min lösning var rätt snygg, men det är bra, man ska alltid ifrågasätta sitt tillvägagångssätt och jag är öppen för förslag.
Om det är sista posten så är det ytterligare en händelse som ska inträffa. Detta kan tyckas kryptiskt och där kan jag hålla med om att min lösning suger rätt kraftigt. Men så blir det när man får bolla ideer med sig själv... det rockar sällan!
IF IsArray(myGetRow) THEN
' ## TABLE
response.write "<TABLE WIDTH=""550"" BORDER=""0"" CELLSPACING=""0"" CELLPADDING=""0"">" & vbCRLF
FOR j = 0 TO UBound(myGetRow, 2)
response.write "<TR><TD WIDTH=""30"" VALIGN=""TOP"">"
response.write "<A HREF=""#""><IMG SRC=""/admin/pics/icons/address.gif"" WIDTH=""15"" HEIGHT=""12"" BORDER=""0"" "
response.write "onMouseDown=""MM_openBrWindow('/staff/address.asp?ID=" & myGetRow(1,j) & "','','width=400,height=400')""></A></TD>" & vbCRLF
' ## NAME
response.write "<TD WIDTH=""150"" VALIGN=""TOP"">" & myFont1 & myGetRow(3,j) & " "& myGetRow(4,j)
' ## COMPANY
response.write "<BR>" & myGetRow(5,j) & "<BR> <BR></FONT></TD>" & vbCRLF
' ## MESSAGE
response.write "<TD WIDTH=""100"" VALIGN=""TOP"">" & myFont1 & "<A HREF=""send.asp?ID=" & myGetRow(0,j)
response.write "&row=" & j & """>Meddelande:</a> </FONT></TD>" & vbCRLF
' ## NOTE
response.write "<TD WIDTH=""350"" VALIGN=""TOP"">" & myFont1
IF myGetRow(2,j) <> "" THEN response.write replace(myGetRow(2,j), vbCRLF, "<BR>" & vbCRLF)
response.write " </FONT></TD>" & vbCRLF
' ## MAILBOX
response.write "<TD WIDTH=""20"" VALIGN=""TOP""><A HREF=""confirm.asp?orderID="
response.write myGetRow(7,j) & "&jobID=" & myGetRow(0,j) & "&customerID=" & myGetRow(1,j)
[b]IF UBound(myGetRow, 2) = 0 THEN response.write "&lastPost=true"[/b]
response.write """><IMG SRC=""/admin/pics/icons/postbox.gif"" WIDTH=""13"" HEIGHT=""16"" BORDER=""0""></A></TD></TR>" & vbCRLF
NEXT
' ## /TABLE
response.write "</TABLE><BR>" & vbCRLF
END IF