%@ LANGUAGE="VBSCRIPT" %> <% Response.Buffer = True %> <% 'for download count Dim CmdSimpleSelect Dim selectsql dim downloadcount Set DataConn = Server.CreateObject("ADODB.Connection") Set CmdSimpleSelect = Server.CreateObject("ADODB.Recordset") 'Dataconn.Open("kkdsn") DataConn.Open "DBQ=" & Server.Mappath("/cgi-bin/_private/kk2001a.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" 'DataConn.Open "Data Source=" & Server.Mappath("kk2001a.mdb") & ";Provider=Microsoft.Jet.OLEDB.3.51;" 'DataConn.Open "Data Source=" & Server.Mappath("kk2001a.mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0;" selectsql = "select max(ID) from t_download" CmdSimpleSelect.Open selectsql, DataConn downloadcount = CmdSimpleSelect(0) %>
|
|
Do you have the latest version of KickKeys 6.0 ? |
||||
|
It traps all Windows applications.... |
|||||
|
Write in Assamese, Bengali, Bulgarian, Belarusian, French, German/Scandinavian, |
|||||
|
Hindi, Italian, Portuguese, Russian, Spanish, Tamil and Ukrainian. |
|||||
|
|
|||||
|
|
Downloads: From Site 21,000<%=downloadcount%> |
|
From download.com : 23,649 |
|
|
Join KickKeys Discussion Group
|
KickKeys
offers a complete language solution through Transliteration
|
|
|
© 2005 KickKeys |
||