<% Response.Expires = 0 sScriptName = Request.ServerVariables("Script_Name") Rem ** Edit directory for this slideshow sPicDir = "ultrasound" Rem ** Edit this number for each slide show iImgTot = 9 sImgNum = Request.QueryString("img") if 0 = len(sImgNum) then iImgNum = 1 else iImgNum = CInt(sImgNum) if iImgNum < 1 then iImgNum = iImgTot if iImgNum > iImgTot then iImgNum = 1 sImgNum = right("00" & CStr(iImgNum),3) Rem ** Pic size. If variable or unknown make sPicSize = "" sPicSize = " width=" & chr(34) & "350" & chr(34) sPicSize = sPicSize & " height=" & chr(34) & "270" & chr(34) Rem ** Captions array Dim sCap(50) sCap(1) = "Notice the eye socket and forehead" sCap(2) = "Clearly see the eye sockets" sCap(3) = "The spine" sCap(4) = "Hand, arm and body" sCap(5) = "A knee, and butt" sCap(6) = "Elbow/arm and shoulder and knee" sCap(7) = "Knee, elbow, hand and head" sCap(8) = "Ribs" sCap(9) = "It's a Boy with an exclamation point!" %> Ultrasound Pictures (<% Response.Write (iImgNum & " of " & iImgTot) %>)

Ultrasound Pictures

 

<% Response.Write "

" if iImgNum > 1 then %> << <% end if Response.Write vbCrLf & iImgNum & " of " & iImgTot & vbCrLf if iImgNum < iImgTot then %> >> <% end if Response.Write "

" Response.Write vbCrLf & "

" & vbCrLf %>

 

<<

<% = sCap(iImgNum) %>

>>

 

For any comments, please click the permalink of the original post.

 

Mommy and Daddy were once babies too

The Babyblog is a collection of links and commentary about babies, growing up, learning, toys, anything baby-related, my pregnant wife, and myself.