|
[x]
Posted via EE Mobile
|
||
Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again. |
||
| Question |
|
[x]
Attachment Details
|
||
|
[x]
The Solution Rating System
|
||
With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.
Your Input Matters If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support. Thank you! |
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: 56: 57: 58: 59: 60: 61: 62: 63: 64: 65: 66: 67: 68: 69: 70: 71: 72: 73: 74: 75: 76: 77: 78: 79: 80: 81: 82: 83: 84: 85: |
admin/config.asp (works)
<%
start_time = timer
Session.LCID = 1033
Dim strConMapPath
Dim strConMapPathTo
Dim strConMapPathIP
Dim strCon
Dim strDB
session.timeout = 600
strDB = "SQL"
strCon = "Provider=SQLOLEDB;Data Source=db-connection;database=db-username;uid=db-user;pwd=db-pass;"
%>
config.asp (in the root and not working)
<%
start_time = timer
Response.Buffer = false
Session.LCID = 1033
Dim strConMapPath
Dim strConMapPathTo
Dim strConMapPathIP
Dim strCon
Dim strDB
'strDB = "ACCESS"
strDB = "SQL"
'Const strConPathFolderDb = "databases/"
'Const strConPathFolderDbSeo = "../databases/"
'Const strConDatabaseSt = "gp_access"
'Const strGportalVersion = "10.0.1"
'Const strGportalReleaseDate = "2009-02-08"
'strConMapPath = Server.MapPath(strConPathFolderDb & strConDatabaseSt & ".mdb")
'strConMapPathSeo = Server.MapPath(strConPathFolderDbSeo & strConDatabaseSt & ".mdb")
'strConMapPathTo = Server.MapPath(strConPathFolderDb & strConDatabaseSt & ".bak")
'strConMapPathIP = Server.MapPath(strConPathFolderDb & strConDatabaseIp & ".mdb")
'strCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strConMapPath
'strConSeo = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strConMapPathSeo
strCon = "Provider=SQLOLEDB;Data Source=db-connection;database=db-username;uid=db-user;pwd=db-pass;"
if isSeo = true then strCon = strConSeo
Set cn = Server.CreateObject ("ADODB.Connection")
cn.open strCon
set rs = cn.execute("select appUrl from gportal_Settings")
if not rs.eof then
appUrl = rs("appUrl")
end if
rs.close
set rs = nothing
sql = "Select * from gportal_Stats where statDate = "
if strDB = "ACCESS" then
sql = sql & " date()"
else
sql = sql & " CONVERT(datetime, CONVERT(varchar, GETDATE(), 103), 103)"
end if
set rs = cn.execute(sql)
if rs.eof then
sql = "Insert Into gportal_Stats (statDate, hit) VALUES ("
if strDB = "ACCESS" then
sql = sql & "date(), 1);"
else
sql = sql & " CONVERT(datetime, CONVERT(varchar, GETDATE(), 103), 103), 1);"
end if
else
sql = "update gportal_Stats set hit = hit + 1 where statDate = "
if strDB = "ACCESS" then
sql = sql & " date()"
else
sql = sql & " CONVERT(datetime, CONVERT(varchar, GETDATE(), 103), 103)"
end if
end if
cn.execute(sql)
rs.close
set rs = nothing
cn.close
set cn = nothing
%>
|
Advertisement
| Hall of Fame |