/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord? 		Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
1  smorch 9259
2  Harlekin 1866
3  molokyle 1040
4  Steffanst.. 758
5  gandalf 657
6  smilly 564
7  gibson 560
8  cumano 530
9  MouseKeep.. 480
10  Random 410
Jeg har arvet noget kode som jeg ikke kan ~
Fra : news.uni2.dk

Dato : 24-07-01 14:16
Jeg er med sikkerhed ikke helt stiv i ASP, den er en primitiv form for
lokale booking og det virker som sådan også, jeg har dog et felt i databasen
med datoen i, og jeg vil godt kunne vise booking en uge frem, men jeg ved
ikke hvordan det skal gribes an udfra denne kode.
Mvh Lars Skov
<HTML>
<HEAD>
<%=session("stylesheet")%>

<%
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "intranet"
%>

<TITLE>Info</TITLE>
<%if session("User")="" then%>
<script language=javascript>
top.location.href="default.asp";
</script>
<%end if%>
<SCRIPT>
window.parent.window_menu.location.href="top_menu_lokale.asp"
</SCRIPT>

</HEAD>

<BODY BGCOLOR="#333333" TEXT="#999999" LINK="#999999" VLINK="#999999"
ALINK="#bbbbbb" TOPMARGIN="5" MARGINHEIGHT="5">
<FONT SIZE="2">

<IMG SRC="images/dot_green.gif" WIDTH="33" HEIGHT="12">&nbsp;Kantinen<BR>
<IMG SRC="images/dot_red.gif" WIDTH="33" HEIGHT="12">&nbsp;1 sal<BR>


<% mydate=date() %>

<% sql = "SELECT * FROM lokalebooking" %>
<% set RS = Conn.Execute(sql) %>
<% if not RS.eof then %>
<TABLE BORDER="1" CELLSPACING="0" CELLPADDING="3" BORDERCOLOR="#666666">
<TR>
<%
dim aa
found=false
aa=FORMATDATETIME("08:00",vbShortTime)
for i=0 to 21-1
%>
<TD BGCOLOR="#666666"><FONT SIZE="-2"><%=aa%></TD>
<%
aa=FORMATDATETIME(DATEADD("n",30,aa),vbShortTime)
next
%>
</TR>

<% end if %>


<% Do While Not RS.eof %>
<TR>

<% sql1 = "SELECT * FROM medarbejder WHERE id="&RS("refID_medarbejder") %>
<% set RS1 = Conn.Execute(sql1) %>
<%
found=false
aa=FORMATDATETIME("08:00",vbShortTime)
for i=0 to 21-1
%>
<% tidfra = formatdatetime(RS("tidfra"),vbShortTime) %>
<% tidtil = formatdatetime(RS("tidtil"),vbShortTime) %>
<% alttekst = RS("navn")&" - "&RS1("fornavn")&" "&RS1("efternavn")&" - "&
tidfra &"-"&tidtil %>
<% if RS("lokale") = "1" then dotcolor = "green" else dotcolor = "red" %>
<TD><% if tidfra <= aa AND tidtil >= aa then %><IMG
SRC="images/dot_<%=dotcolor%>.gif" WIDTH="33" HEIGHT="12"
ALT="<%=alttekst%>"><% else %><IMG SRC="images/dot_transparent.gif"
WIDTH="33" HEIGHT="5"><% end if %></TD>
<%
aa=FORMATDATETIME(DATEADD("n",30,aa),vbShortTime)
next
%>
</TR>
<% RS.MoveNext %>
<% Loop %>

</TABLE>
<BR>

</BODY>
</HTML>



 
 
hhager (26-07-2001)
Kommentar
Fra : hhager

Dato : 26-07-01 13:50
"news.uni2.dk" <larsskov@mailme.dk> wrote in message
news:Nye77.109$aN4.20709@news.get2net.dk...
> Jeg er med sikkerhed ikke helt stiv i ASP, den er en primitiv form for
> lokale booking og det virker som sådan også, jeg har dog et felt i
databasen
> med datoen i, og jeg vil godt kunne vise booking en uge frem, men jeg ved
> ikke hvordan det skal gribes an udfra denne kode.
> Mvh Lars Skov

Det kan umiddelbart være svært at svare på uden at kende noget til
databasens opbygning.
Kunne du komme med lidt mere info?
HBH



news.uni2.dk (26-07-2001)
Kommentar
Fra : news.uni2.dk

Dato : 26-07-01 14:16
Jeg har en access database med flg. felter:
ID (Autonummerering)
navn (tekst)
Dato (dato og klokkeslet) standard datoformat
tidfra (dato og klokkeslet) Kort klokkeslætsformat
tidtil (dato og klokkeslet) Kort klokkeslætsformat
refID_medarbejder (tal)
lokale (tal)

Mvh Lars Skov Olsen


"hhager" <henrik.brahe.hager@neckelmann.dk> skrev i en meddelelse
news:9jp3lf$s91$1@sunsite.dk...
> "news.uni2.dk" <larsskov@mailme.dk> wrote in message
> news:Nye77.109$aN4.20709@news.get2net.dk...
> > Jeg er med sikkerhed ikke helt stiv i ASP, den er en primitiv form for
> > lokale booking og det virker som sådan også, jeg har dog et felt i
> databasen
> > med datoen i, og jeg vil godt kunne vise booking en uge frem, men jeg
ved
> > ikke hvordan det skal gribes an udfra denne kode.
> > Mvh Lars Skov
>
> Det kan umiddelbart være svært at svare på uden at kende noget til
> databasens opbygning.
> Kunne du komme med lidt mere info?
> HBH
>
>



hhager (01-08-2001)
Kommentar
Fra : hhager

Dato : 01-08-01 09:14

Det virker som sådan også, jeg har dog et felt i databasen med datoen i, og
jeg vil godt kunne vise booking en uge frem, men jeg ved ikke hvordan det
skal gribes an udfra denne kode.

Hej igen.

Du kan evt. bruge dette:
<%
Dim strSQL
strSQL = "SELECT * FROM medarbejder WHERE tidfra BETWEEN '" & Now() & "' AND
'" & Now()+7 "'"
%>
Giver alle poster i tabellen "medarbejder", hvor "tidfra" feltet er mellem
og inklusiv nu og nu+7(en uge).
Det er SQL-delen af ASP.
Du skal så håndtere dette i ASP.
F.eks.
<%
Dim objRS
Set objRS = Conn.Execute(strSQL)
%>
Hvor Conn er dit Connection objekt, som jeg kan se du bruger i forvejen.
Jeg har inkluderet to filer - er nederst som tekst.
Hvis du bruger f.eks. RecordsetToTable.asp (<!-- #include
file="STIEN/RecordsetToTable.asp" -->), kan du skrive:
RecToTable (objRS)
og resultatet vises i en tabel.

Alt i alt:
<%
Dim strSQL
strSQL = "SELECT * FROM medarbejder WHERE tidfra BETWEEN '" & Now() & "' AND
'" & Now()+7 "'"
Dim objRS
Set objRS = Conn.Execute(strSQL)
RecToTable (objRS)

Håber det hjælper dig lidt på vej...
HBH


RecordsetToTable.asp:
*******************

<%

'<!-- *************** Created by Henrik Brahe Hager on 04.07.2000
*************** -->
'<!-- ************* Last edited by Henrik Brahe Hager on 06.03.2001
************* -->
'
'Converts a recordset to a HTML table in a string.
'Pre:
' Input must be a recordset.
'Post:
' Empty Recordset => "Ingen data fundet."
' Recordset not open => error message.
'


Function RecToTable (objRec)

Dim strTableString 'Table HTML string.
Dim objCurrentField 'Current field object.

If objRec.State Then 'RS open.

If Not objRec.EOF Then 'Not Empty RS

'Build the table header.
strTableString = "<TABLE BORDER=1>" & "<TR ALIGN=CENTER>"

'Each field as a table column name.
For Each objCurrentField In objRec.Fields
strTableString = strTableString & "<TH>&nbsp;" & objCurrentField.Name &
"&nbsp;</TH>"
Next
strTableString = strTableString & "</TR>"

'Now build the rows.
While Not objRec.EOF
strTableString = strTableString & "<TR ALIGN=CENTER>"

'Add the fields.
For Each objCurrentField in objRec.Fields
strTableString = strTableString & "<TD>&nbsp;" & objCurrentField.Value
& "&nbsp;</TD>"
Next
strTableString = strTableString & "</TR>"
objRec.MoveNext
Wend
strTableString = strTableString & "</TABLE>"
'And finally return the table.
RecToTable = strTableString
Else
RecToTable = "Ingen data fundet."
End If
Else
RecToTable = "Der er opstået en kommunikationsfejl. <BR>"
RecToTable = RecToTable + "Prøv eventuelt igen. <BR>"
RecToTable = RecToTable + "Hvis problemet fortsætter kontakt da
Teknisk-IT.<BR>"
End If
End Function

%>



RecordsetToHTML.asp:
********************

<%

'<!-- *************** Created by Henrik Brahe Hager on 04.07.2001
*************** -->
'<!-- ************* Last edited by Henrik Brahe Hager on 24.07.2001
************* -->
'
'
'Converts a recordset to a HTML table and output result.
'Pre:
' Input must be a recordset.
'Post:
' Empty Recordset => "Ingen data fundet."
' Recordset not open => error message.
'


Function RecToHTML (objRec)

Dim objCurrentField 'Current field object.

If objRec.State Then 'RS open.

If Not objRec.EOF Then 'Not Empty RS

'Build the table header.
Response.Write "<TABLE BORDER=1>" & "<TR ALIGN=CENTER>"
Response.Flush

'Each field as a table column name.
For Each objCurrentField In objRec.Fields
Response.Write "<TH>&nbsp;" & objCurrentField.Name & "&nbsp;</TH>"
Next
Response.Write "</TR>"
Response.Flush

'Now build the rows.
While Not objRec.EOF
Response.Write "<TR ALIGN=CENTER>"

'Add the fields.
For Each objCurrentField in objRec.Fields
Response.Write "<TD>&nbsp;" & objCurrentField.Value & "&nbsp;</TD>"
Next
Response.Write "</TR>"
Response.Flush
objRec.MoveNext
Wend
Response.Write "</TABLE>"
Else
Response.Write "Ingen data fundet."
End If
Else
Response.Write "Der er opstået en kommunikationsfejl. <BR>"
Response.Write "Prøv eventuelt igen. <BR>"
Response.Write "Hvis problemet fortsætter kontakt da Teknisk-IT.<BR>"
End If
End Function

%>




Søg
Reklame
Statistik
Spørgsmål : 177557
Tips : 31968
Nyheder : 719565
Indlæg : 6408868
Brugere : 218888
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.