I am trying to update a dB that has fields looking like this:
161/87 (75%)
I want this field to be seperated into three seperate fields
161.........87............75%
Here is my code.....
SQL_CREATE = "CREATE TABLE TEMP_STAT (Site int "
SQL_SELECT = "SELECT Site "
SQL_INSERT = "INSERT INTO TEMP_STAT (Site "
<%
If outputPacketsStaged = "yes" Then
SQL_SELECT = SQL_SELECT & ", SUBSTRING(PacketsStaged,1,(CHARINDEX('/',PacketsStaged)-1)) AS PacketsStagedAtt"
SQL_SELECT = SQL_SELECT & ", SUBSTRING(PacketsStaged,(CHARINDEX('/',PacketsStaged)+1),(CHARINDEX('(',PacketsStaged)-1)) AS PacketsStagedSucc"
SQL_SELECT = SQL_SELECT & ", SUBSTRING(PacketsStaged,(CHARINDEX('(',PacketsStaged)+1),(CHARINDEX(')',PacketsStaged)-1)) AS PacketsStagedPerc"
SQL_CREATE = SQL_CREATE & ", PacketsStagedAtt int, PacketsStagedSucc int, PacketsStagedPerc VARCHAR(255), PacketsStaged VARCHAR(255) "
SQL_SELECT = SQL_SELECT & ", PacketsStaged "
SQL_INSERT = SQL_INSERT & ", PacketsStagedAtt, PacketsStagedSucc, PacketsStagedPerc, PacketsStaged "
End If
SQL_CREATE = SQL_CREATE & " ) "
set r2 = conn.execute(SQL_CREATE)
SQL_SELECT = SQL_SELECT & "FROM Statistics WHERE Site = "&Site&" AND Statistics.DayAge>="&frdays&" AND Statistics.DayAge<="&todays+1&" "
set r3 = Server.CreateObject("ADODB.Recordset"![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
r3.Open SQL_SELECT, conn, adOpenStatic
numrecs = r3.RecordCount
If numrecs = 0 Then
NoData = "1"
Else
SQL_INSERT = SQL_INSERT & " ) values ("&r3.Fields("Site"
&" "
On Error Resume Next
r3.MoveFirst
do while Not r3.eof
r3.MoveNext
loop
I think this code sure work properly, but I keep getting the following error:
Undefined function 'SUBSTRING' in expression.
Can someone please advise. Thanks in advance.
161/87 (75%)
I want this field to be seperated into three seperate fields
161.........87............75%
Here is my code.....
SQL_CREATE = "CREATE TABLE TEMP_STAT (Site int "
SQL_SELECT = "SELECT Site "
SQL_INSERT = "INSERT INTO TEMP_STAT (Site "
<%
If outputPacketsStaged = "yes" Then
SQL_SELECT = SQL_SELECT & ", SUBSTRING(PacketsStaged,1,(CHARINDEX('/',PacketsStaged)-1)) AS PacketsStagedAtt"
SQL_SELECT = SQL_SELECT & ", SUBSTRING(PacketsStaged,(CHARINDEX('/',PacketsStaged)+1),(CHARINDEX('(',PacketsStaged)-1)) AS PacketsStagedSucc"
SQL_SELECT = SQL_SELECT & ", SUBSTRING(PacketsStaged,(CHARINDEX('(',PacketsStaged)+1),(CHARINDEX(')',PacketsStaged)-1)) AS PacketsStagedPerc"
SQL_CREATE = SQL_CREATE & ", PacketsStagedAtt int, PacketsStagedSucc int, PacketsStagedPerc VARCHAR(255), PacketsStaged VARCHAR(255) "
SQL_SELECT = SQL_SELECT & ", PacketsStaged "
SQL_INSERT = SQL_INSERT & ", PacketsStagedAtt, PacketsStagedSucc, PacketsStagedPerc, PacketsStaged "
End If
SQL_CREATE = SQL_CREATE & " ) "
set r2 = conn.execute(SQL_CREATE)
SQL_SELECT = SQL_SELECT & "FROM Statistics WHERE Site = "&Site&" AND Statistics.DayAge>="&frdays&" AND Statistics.DayAge<="&todays+1&" "
set r3 = Server.CreateObject("ADODB.Recordset"
r3.Open SQL_SELECT, conn, adOpenStatic
numrecs = r3.RecordCount
If numrecs = 0 Then
NoData = "1"
Else
SQL_INSERT = SQL_INSERT & " ) values ("&r3.Fields("Site"
On Error Resume Next
r3.MoveFirst
do while Not r3.eof
r3.MoveNext
loop
I think this code sure work properly, but I keep getting the following error:
Undefined function 'SUBSTRING' in expression.
Can someone please advise. Thanks in advance.