%
Dim oRS
Set oRS = Server.CreateObject("ADODB.Recordset")
Set oRS.ActiveConnection = PostCard_GetDatabaseConn()
oRS.Open "select numero, imgurl, imgpqurl from imagens"
Sub WriteOne( oRS )
Dim Ref, name, img, imgpq
imgpq = oRS("imgpqurl").Value
Ref = "prepara.asp?numero=" & oRS("numero").Value & "&imagem=" & imgpq
Response.Write ""
oRS.MoveNext
End Sub
%>
![]() |
|
|