[tt]
Here's what I'm trying to do in my SQL database.
I need to format a unique numbering system for this site which will look like this
Unique Account Number
Year - Month - User Initials & 001
Here's what I have done so far
<%
curDate = Now()
pyy = Year(curDate)
pmm = Month(curDate)
pui = request.cookies("initials"
if len(bidmm) = 1 Then
bidmm = "0" & bidmm
end if
Dim MyRs
Set MyRs = Server.CreateObject("ADODB.Recordset"
SQL = "Select accnumber from tbl Where accnumber like '" & pyy & pmm & "%" and initials = " pui
MyRs.open SQL, "DSN=proposal"
if MyRs.eof or MyRs.bof
fullaccnumber = pyy & pmm & "001"
else
fullaccnumber = MyRs + 1
end if
response.write fullaccnumber
%>
Error I'm getting and can't find it
Error Type:
Microsoft VBScript compilation
Unterminated string constant
Line 17
Line 17 = SQL = "Select accnumber from tbl Where accnumber like '" & pyy & pmm & "%" and initials = " pui
Here's what I'm trying to do in my SQL database.
I need to format a unique numbering system for this site which will look like this
Unique Account Number
Year - Month - User Initials & 001
Here's what I have done so far
<%
curDate = Now()
pyy = Year(curDate)
pmm = Month(curDate)
pui = request.cookies("initials"
if len(bidmm) = 1 Then
bidmm = "0" & bidmm
end if
Dim MyRs
Set MyRs = Server.CreateObject("ADODB.Recordset"
SQL = "Select accnumber from tbl Where accnumber like '" & pyy & pmm & "%" and initials = " pui
MyRs.open SQL, "DSN=proposal"
if MyRs.eof or MyRs.bof
fullaccnumber = pyy & pmm & "001"
else
fullaccnumber = MyRs + 1
end if
response.write fullaccnumber
%>
Error I'm getting and can't find it
Error Type:
Microsoft VBScript compilation
Unterminated string constant
Line 17
Line 17 = SQL = "Select accnumber from tbl Where accnumber like '" & pyy & pmm & "%" and initials = " pui
T ® Ñ ¥
To keep a lamp burning we have to keep puting oil in it.
To keep a lamp burning we have to keep puting oil in it.
