Hi,
I am working with Visual Studio 2005 with SQL Server 2005. Now, I have changed a data type on my table (dbo.files) from int to bigint.
As a result I received the following error on my page;
Microsoft VBScript runtime
error '800a000d'
Type mismatch
/Citrix/MetaframeXP/default/_include/functions/default.asp, line 330
So on default.asp the line 300 is shown below in bold and RED;
Thanks
I am working with Visual Studio 2005 with SQL Server 2005. Now, I have changed a data type on my table (dbo.files) from int to bigint.
As a result I received the following error on my page;
Microsoft VBScript runtime
error '800a000d'
Type mismatch
/Citrix/MetaframeXP/default/_include/functions/default.asp, line 330
So on default.asp the line 300 is shown below in bold and RED;
Code:
function dropbox(dropboxsql,dropboxrecvalue,dropboxtext, dropboxvariable)
dim blnValueShow, blnVariableArray, intVariableArrayCounter, dropboxRecordset, dropboxselected, dropboxoption
dim dropBoxTextArray, dropBoxTextArrayCounter
blnValueShow = true
blnVariableArray = false
set dropboxRecordset = Server.CreateObject("ADODB.Recordset")
with dropboxRecordset
.ActiveConnection = strconnection
.locktype = 1
.Source = dropboxsql
.Open()
end with
if left(dropboxrecvalue,1) = "#" then
blnValueShow = false
end if
if left(dropboxvariable,1) = "~" then
blnVariableArray = true
dim arrMultipleSelect
select case left(dropboxvariable, 2)
case "~#"
dropboxvariable = right(dropboxvariable,len(dropboxvariable) - 2)
arrMultipleSelect = split(dropboxvariable, "#")
case "~,"
dropboxvariable = right(dropboxvariable,len(dropboxvariable) - 2)
arrMultipleSelect = split(dropboxvariable, ", ")
end select
end if
while not dropboxRecordset.eof
dropboxSelected = ""
if blnValueShow = true then
if blnVariableArray = false then
if not isnull(dropboxvariable) then
if cstr(dropboxvariable) = cstr(dropboxRecordset(dropboxrecvalue)) then
dropboxselected = "selected"
end if
end if
dropboxoption = "<option value=""" & dropboxRecordset(dropboxrecvalue) & """ " & dropboxselected & ">"
else
for intVariableArrayCounter = 0 to ubound(arrMultipleSelect)
if cstr(arrMultipleSelect(intVariableArrayCounter)) = cstr(dropboxRecordset(dropboxrecvalue)) then
dropboxselected = "selected"
exit for
end if
next
dropboxoption = "<option value=""" & dropboxRecordset(dropboxrecvalue) & """ " & dropboxselected & ">"
end if
end if
response.write("<br>" & dropboxoption)
dropBoxTextArray = split(dropboxtext, "#")
for dropBoxTextArrayCounter = 0 to ubound(dropBoxTextArray)
if left(dropBoxTextArray(dropBoxTextArrayCounter),1) <> "@" then
if dropBoxTextArrayCounter > 0 and left(dropBoxTextArray(dropBoxTextArrayCounter),1) <> "¬" then
response.Write(" - ")
elseif left(dropBoxTextArray(dropBoxTextArrayCounter),1) = "¬" then
dropBoxTextArray(dropBoxTextArrayCounter) = right(dropBoxTextArray(dropBoxTextArrayCounter), len(dropBoxTextArray(dropBoxTextArrayCounter)) - 1)
end if
if (dropBoxTextArray(dropBoxTextArrayCounter) = "price") then
if (dropboxRecordset("price") = "-1") then
response.write("TBA")
else
response.write(dropboxRecordset("price"))
end if
else
response.write(dropboxRecordset(dropBoxTextArray(dropBoxTextArrayCounter)))
end if
else
if left(dropBoxTextArray(dropBoxTextArrayCounter),2) <> "@¬" then
response.Write(" - ")
else
dropBoxTextArray(dropBoxTextArrayCounter) = right(dropBoxTextArray(dropBoxTextArrayCounter), len(dropBoxTextArray(dropBoxTextArrayCounter)) - 1)
end if
response.write(right(dropBoxTextArray(dropBoxTextArrayCounter), len(dropBoxTextArray(dropBoxTextArrayCounter)) - 1))
end if
next
if blnValueShow = true then
response.write("</option>")
end if
dropboxRecordset.movenext
wend
dropboxRecordset.close
end function