Try using an error handler
public sub whatever()
Dim Buffer() As Byte
Dim FileNumber As Integer
on error goto errorhandler
FileNumber = FreeFile()
Open URL(some URL) For Binary Access Read Write As #FileNumber
Buffer = Inet1.OpenURL(URL, icByteArray) 'this uses INET control to get the...
dude,
Try the split command.
If the format is first_name middle_name last_name
do this:
dim strSplit() as string
dim strStuff as string
strStuff = "John Q Public"
strsplit() = split(strstuff," ")
strsplit(0) = firstname
strsplit(1) = middlename
strsplit(2) = lastname
MJC
I'm trying to connect to SQL server:
Set mvarOCN = New ADODB.Connection
mvarOCN.Open "Driver={SQL SERVER};Server=" & mvarserver & ";database=" & mvardatabase & ";Trusted_Connection=yes;"
Set mvarRS = mvarOCN.Execute(sqlStatement)
when my sqlStatement...
I have more than one application that uses MS SQL Server. It seems that when I try to utilize more than one connections via different software apps, it often times out until one is complete.
App 1 is an inserter....inserts test records into db.
App 2..3..4 is a query tool..used to get test...
I'm trying to dynamically instantiate class modules based on file input
so in my project i have a class module called: myClass.cls
I would like to do:
dim O as object
Set O = CreateObject("myProject.myClass")
...but it errors out with "ActiveX can't create object
You may be...
Hey,
I'm looking for a way to display the column names of a table at an angle. I found the command "writing-mode: tb-rl;" for a CSS which puts text in at 90 degree angle but it's at an angle that people aren't used to viewing (opposite). Is there a way to specify the angle of the...
you got it dude...with the link
Response.Write(oADORecordset.GetString(,,",",chr(13)&chr(10),"(NULL)"))
works while
Response.Write(oADORecordset.GetStringad(ClipString, -1, ",", ",", "(NULL)"))
Thanks,
Please assume that open db works but here is opendbconnection
function openDBConnection()
'This line creates an ADO Connection object
dim oADOConnection
On Error Resume Next
Set oADOConnection = Server.CreateObject("ADODB.Connection")
'We can then open a connection Database...
Hello,
I'm having trouble getting the getstring method to work in vbscript over asp.
set oADOConnection = openDBConnection()
Set oADORecordset = oADOConnection.Execute(buildsql(report_type)) '''call function in sqlUtility.asp and get data...
Hello,
I'm having trouble getting the getstring method to work in vbscript over asp.
set oADOConnection = openDBConnection()
Set oADORecordset = oADOConnection.Execute(buildsql(report_type)) '''call function in sqlUtility.asp and get data...
Hello,
I'm having trouble getting the getstring method to work in vbscript over asp.
set oADOConnection = openDBConnection()
Set oADORecordset = oADOConnection.Execute(buildsql(report_type)) '''call function in sqlUtility.asp and get data...
All,
nm, there is probably a better way but i decided to do a convert function to a view i created for this report.
convert(FLOAT,a.ResultValue)'ResultValue'
MJC
I having an interesting problem. I have sql query which gets data and one of the fields is a variant. The variant field displays fine on cyrstal reports and also on my sql client. When I publish the report on a website, the value for these fields are displayed in ascii hex format...
Dude,
This is all my code for that part
Dim yldReport As Yield
Dim db As TPDatabase
Dim rs As ADODB.Recordset
Dim crParameters As craxdrt.ParameterFieldDefinitions
Dim crParameter As craxdrt.ParameterFieldDefinition
''''set the design object called yield
Set yldReport = New Yield
''''set...
Dude,
This works in vb...shouldn't be hard to figure out in asp
Dim crParameters As craxdrt.ParameterFieldDefinitions
Dim crParameter As craxdrt.ParameterFieldDefinition
Set crParameters = yldReport.ParameterFields
Set crParameter = crParameters.Item(1)...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.