<%Dim MyConn, USERNAME, PASSWORD '------------------------------------' ' FAQ Generator 2.5 ' ' Copyright © 2000-2006 Expinion.net ' ' http://www.expinion.net/ ' ' Released Under GPL ' ' Released: February 24. 2005 ' '------------------------------------' '// SET YOUR ADMINISTRATION USERNAME USERNAME = "damien666" '// SET YOUR ADMINISTRATION PASSWORD PASSWORD = "calf2440" '// CONFIGURE YOUR DATABASE CONNECTION SUB OPEN_DB() '<< MS Access Options >> ' DIRECT PATH 'Set MyConn = Server.CreateObject("ADODB.Connection") ' MyConn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=C:\Inetpub\wwwroot\MMS\DB\faq_maker.mdb;" 'DSN CONNECTION 'Set MyConn = Server.CreateObject("ADODB.Connection") 'MyConn.open = "DSN=FAQ" ' MapPath CONNECTION Set MyConn = Server.CreateObject("ADODB.Connection") MyConn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\cgi-bin\db\faq_maker.mdb") & ";Persist Security Info=False" ' << MS SQL Option >> 'MS-SQL CONNECTION 'Set MyConn = Server.CreateObject("ADODB.Connection") 'MyConn.Open "Provider=sqloledb;Network Library=DBMSSOCN;Data Source=MSSQLSERVER,1433;Initial Catalog=faq-maker;User ID=damien666;Password=calf2440;" ' << MySQL Option >> ' MS-SQL CONNECTION 'Set MyConn = Server.CreateObject("ADODB.Connection") 'MyConn.Open "Driver={MySQL ODBC 3.51 Driver}; Server=MYSQLSERVERADDRESS; uid=USERNAME; pwd=PASSWORD; database=DATABASENAME; option=3; port=3306;" END SUB ' ------- NO NEED TO EDIT ANYTHING BELOW ----------------------------------------------------------------------------- PRIVATE FUNCTION APO(val) Dim tmpSTR tmpSTR = val tmpSTR = Replace(Trim(tmpSTR),"'","''") tmpSTR = Replace(Trim(tmpSTR),"\","\\") APO = tmpSTR END FUNCTION FUNCTION CONVERT_TXT(val) IF Trim(Cstr(val)) = "1" THEN CONVERT_TXT = "Yes" ELSE CONVERT_TXT = "No" END IF END FUNCTION PRIVATE FUNCTION CONVERT_NUM(val) IF Trim(val) = "1" THEN CONVERT_NUM = 1 ELSE CONVERT_NUM = 0 END IF END FUNCTION PRIVATE FUNCTION IS_VALID_ID(sID) If IsNull(sID) OR Trim(sID) = "" Then IS_VALID_ID = False Else If Instr(sID,",") >=1 THEN IS_VALID_ID = False Else If IsNumeric(sID) = True Then IS_VALID_ID = True Else IS_VALID_ID = False End If End If End If END FUNCTION %> <%Dim SQL, RS, strRETURNED_DATA, EOF_VAL, intNUM_COL, intNUM_ROW, intROW_COUNTER, ID, TITLE, I, TOP_I, _ strCATE, CATE I = 0 CATE = Trim(Request.QueryString("CATE")) IF IS_VALID_ID(CATE) = False THEN CATE = 0 SQL = "SELECT fldNAME, ID FROM faq_tbl_cate ORDER BY fldNAME ASC" Call OPEN_DB() Set RS = Server.CreateObject("ADODB.Recordset") RS.LockType = 1 RS.CursorType = 0 RS.Open SQL, MyConn WHILE NOT RS.EOF IF CATE = trim(RS("ID")) Then strCATE = strCATE & "