<%
Dim rsADO
' Define the Connection String From Above
mydb="PROVIDER=MSDASQL;DRIVER={SQL Server};"
mydb=mydb & "SERVER="+DBTitleAdd+"DATABASE="+DBTitleDB
mydb=mydb & "UID="+DBTitleUser+"PWD="+DBTitlePass
' Create the Object
Set rsADO = Server.CreateObject("ADODB.Recordset")
IF nName = "%%" Then
Source = "SELECT * FROM answerbookexport WHERE summary = 'XXXXXXXXXX'"
else
Source = "SELECT * FROM answerbookexport WHERE (summary LIKE '"& nName &"') OR (memo LIKE '"& nName &"') ORDER BY summary"
END IF
' Open the Recordset
rsADO.Open Source, mydb
Counter = 0
If rsADO.EOF Then%>
No article found. Please enter search text above! <% End If %>
|
| Summary |
Memo |
Date |
|
<%
foundflag = "F"
DO WHILE not rsADO.EOF
TempSummary = Trim(rsADO("summary"))
TempMemo = Trim(rsADO("memo"))
DispFlag = "F"
For i = 1 to Len(TempSummary)
TempValue = UCASE(MID(TempSummary,i,Len(nName2)))
If TempValue = nName2 Then
If InStr("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789",MID(TempSummary,i+len(nName2),1)) > 0 Then
DispFlag = "F"
Else
DispFlag = "T"
End if
End if
Next
For i = 1 to Len(TempMemo)
TempValue = UCASE(MID(TempMemo,i,Len(nName2)))
If TempValue = nName2 Then
If InStr("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789",MID(TempMemo,i+len(nName2),1)) > 0 Then
DispFlag = "F"
Else
DispFlag = "T"
End if
End if
Next
If DispFlag = "T" Then
foundflag = "T"
%>
| <%= TempSummary%> |
|
<% Response.Write rsADO("changedate")%> |
|
<%
Counter = Counter + 1
End if
rsADO.MoveNext
LOOP
' DeAllocate the Object to Free Server Memory
set rsADO = nothing
%>
|
|
|
|
