Watermark
Jeg har en fil jeg har kaldt watermark.asp med koden:<%
Set Image = Server.CreateObject("AspImage.Image")
rem Set various font parameters
Image.FontColor = vbBlack
Image.Italic = True
Image.Bold = True
Image.FontName = "Arial"
Image.FontSize = 12
Image.PadSize = 10
rem Calculate how big our text info is and set the image to this size
rem This has to be done since we want to fill the area with a gradient
strMessage = "Welcome to"
Image.MaxX = Image.TextWidth (strMessage)
Image.MaxY = Image.TextHeight (strMessage)
rem Create a one way gradient
Image.GradientOneWay vbRed, vbWhite, 0
rem Print our string to the image
Image.TextOut strMessage, Image.X, Image.Y, false
rem Set the filename and save
Image.FileName = "images/slideimages/Billede-001.jpg"
if Image.SaveImage then
rem The image was saved so write the <img src> tag out for the browser to pick up
Response.Write "<img src="images/slideimages/Billede-001.jpg"><br>"
else
rem Something happened and we couldn't save the image so just use an HTML header
rem We need to debug the script and find out what went wrong. See Image.Error for details
Response.Write "<h2>Welcome to</h2>"
end if
%>
Så har jeg en anden fil, med denne kode indsat, som skal vise billedet med vandmærket over:
<%if RSslides("sold") = "-1" then%>
<img src="watermark2.asp?<%=(RSslides("img1").Value)%>"/>
Meningen er, at der istedet for "Welcome to" teksten, skal bruges images sold.png til vandmærket.
Er der nogen der kan hjælpe mig her med at få det sat sammen?
