Advertisement
Advertisement
| 08.07.2008 at 10:16AM PDT, ID: 23630205 | Points: 500 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: |
Dim cmdGetImage__ImageID
cmdGetImage__ImageID = "1"
if(Request("ImageID") <> "") then
cmdGetImage__ImageID = Request("ImageID")
cmdGetImage__ImageID = Replace(cmdGetImage__ImageID, "'", "")
if IsNumeric(cmdGetImage__ImageID) = False then
cmdGetImage__ImageID = 0
else
Session("ImageID") = cmdGetImage__ImageID
end if
else
Response.Redirect("/ImageAgreement/")
end if
Dim cmdGetImage__IsActive
cmdGetImage__IsActive = "1"
'if(Request("IsActive") <> "") then cmdGetImage__IsActive = Request("IsActive")
Dim cmdGetImage__NTUsername
cmdGetImage__NTUsername = "333"
if(Session("NTUsername") <> "") then cmdGetImage__NTUsername = Session("NTUsername")
%>
<%
set cmdGetImage = Server.CreateObject("ADODB.Command")
cmdGetImage.ActiveConnection = MM_ConnectionImageAgreement_STRING
cmdGetImage.CommandText = "dbo.agr_ViewImage"
cmdGetImage.Parameters.Append cmdGetImage.CreateParameter("@ImageID", 20, 1,100,cmdGetImage__ImageID)
cmdGetImage.Parameters.Append cmdGetImage.CreateParameter("@IsActive", 16, 1,1,cmdGetImage__IsActive)
cmdGetImage.Parameters.Append cmdGetImage.CreateParameter("@NTUsername", 200, 1,150,cmdGetImage__NTUsername)
cmdGetImage.CommandType = 4
cmdGetImage.CommandTimeout = 0
cmdGetImage.Prepared = true
set rsImage = cmdGetImage.Execute
rsImage_numRows = 0
%>
'Following code gives an error when the ImageID is not valid
If rsImage.EOF Or Not rsImage.BOF Then
strTitle = Trim( rsImage.Fields.Item("Title").Value )
End If
|