<%
Dim adoCon
Dim strSQL
Dim recSet
Dim holder
set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.mode = 3
adoCon.Open "DSN=sharks; UID=syberg;PWD=shark999;"
strSQL = "select * from GravoisCalendar where currentpdf = -1"
set recSet = Server.CreateObject("ADODB.Recordset")
recSet.Open strSQL, adoCon
Cname = recset("title")
Cfile = recset("filename")
%>
| <%=Cname%> |
 |
|
<%
adoCon.close
set recSet2 = Server.CreateObject("ADODB.Recordset")
strSQL = "select * from GravoisCalendar where secondpdf = -1"
set adoCon2 = Server.CreateObject("ADODB.Connection")
adoCon2.mode = 3
adoCon2.Open "DSN=sharks; UID=syberg;PWD=shark999;"
recSet2.Open strSQL, adoCon2
if NOT recSet2.EOF then
C2name = recSet2("title")
C2file = recSet2("filename")
'Left(Cname,Len(Cname)-4)
%>
| <%=C2name%> |
|
|
<%end if%>
<%
adocon2.close
set recset = nothing
set recSet2 = nothing
set adocon = nothing
set strsql = nothing
%>
|
|
