CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

gfg-pth Nybegynder

25. december 2005 - 23:04 Der er 11 kommentarer og
1 løsning

if sætning virker ikke

Hej
Hvorfor virker dette ikke:

<%

Set RSEVENT = Server.CreateObject("ADODB.RecordSet")
RSEVENT.Open "SELECT * FROM Events ", Conn, 1, 3

If RSEVENT("busbestilt") = nej then
Response.write "Der skal bestilles en bus!"

End If

%>

venlig hilsen
gfg-pth

Synes godt om

thesurfer Nybegynder

25. december 2005 - 23:49 #1

Hvis "busbestilt" er True/False (Sand/Falsk), skal det muligvis være:
False
Falsk
0

i stedet for: nej

/theSurfer

Synes godt om

thesurfer Nybegynder

25. december 2005 - 23:50 #2

Men du mangler jo at angive "id".. ellers henter den alle posterne..

Eksempel:
RSEVENT.Open "SELECT * FROM Events where id = 4", Conn, 1, 3

/theSurfer

Synes godt om

thesurfer Nybegynder

25. december 2005 - 23:50 #3

PS:
Det kan også være et af de andre felter, hvis det er det du bruger, for at finde den bestemte post..

/theSurfer

Synes godt om

mugs Novice

25. december 2005 - 23:51 #4

Har ikke forstand på internettet, men i ren Access skal det se således ud:

If Me!busbestilt = "nej" then

Såfremt feltet busbestilt er et tekstfelt. Hvis det er et Ja/Nej felt kan du prøve med 0 eller -1. Der skal så ikke være "" omkring da det er et numerisk felt

Synes godt om

gfg-pth Nybegynder

26. december 2005 - 00:06 #5

Feltet busbestilt er et tekst felt med ja eller nej. Jeg har prøvet det i har skrevet med der sker ikke noget. Selve siden kan godt vises, men der kommer ingen respose.write sætning frem

Synes godt om

thesurfer Nybegynder

26. december 2005 - 00:13 #6

Hvad har du ellers på den side? Resten af koden..

/theSurfer

Synes godt om

gfg-pth Nybegynder

26. december 2005 - 00:16 #7

alt det her



<html>
<head>
<title><%=RSBODY("Page_Title")%></title>



</head>
<body bgcolor="#F1F1F1" text="<%=RSBODY("Font_Color")%>"
link="<%=RSBODY("Link_Color")%>" vlink="<%=RSBODY("Visited_Link_Color")%>"
alink="<%=RSBODY("Active_Link_Color")%>" rightmargin="150">
 

<%

Set RSEVENT = Server.CreateObject("ADODB.RecordSet")
RSEVENT.Open "SELECT * FROM Events", Conn, 1, 3

If RSEVENT("busbestilt") = nej then
Response.write ="alert('Der skal bestilles en bus')"

End If

%>

 

<%

navmonth = request.querystring("month")
navyear = request.querystring("year")

If navmonth = "" Then
navmonth = Month(Date)
End If

If navyear = "" Then
navyear = Year(Date)
End If

firstday = Weekday(CDate(navyear & "/" & 1 & "/" & navmonth))

leapTestNumbers = navyear / 4
leapTest = (leapTestNumbers) - Round(leapTestNumbers)
If navmonth = 2 Then
If leapTest <> 0 Then
lastDate = 28
Else
lastDate = 29
End If
ElseIf ((navmonth = 4) OR (navmonth = 6) OR (navmonth = 9) OR (navmonth = 11)) Then
lastDate = 30
Else
lastDate = 31
End If

lastMonth = navmonth - 1
lastYear = navyear
If lastMonth < 1 Then
lastMonth = 12
lastYear = lastYear - 1
End If

nextMonth = navmonth + 1
nextYear = navyear
If nextMonth >12 Then
nextMonth = 1
nextYear = nextYear + 1
End If

dateCounter = 1
weekCount = 1

DateEnd = lastDate
DateBegin = firstDate

Weekday_Font = RSBODY("Weekday_Font")
Weekday_Font_Size = RSBODY("Weekday_Font_Size")
Weekday_Font_Color = RSBODY("Weekday_Font_Color")
Weekday_Background_Color = RSBODY("Weekday_Background_Color")
Date_Font = RSBODY("Date_Font")
Date_Font_Size = RSBODY("Date_Font_Size")
Date_Font_Color = RSBODY("Date_Font_Color")
Date_Background_Color = RSBODY("Date_Background_Color")
Event_Font = RSBODY("Event_Font")
Event_Font_Size = RSBODY("Event_Font_Size")
Event_Font_Color = RSBODY("Event_Font_Color")
Cell_Width = RSBODY("Cell_Width")
Cell_Height = RSBODY("Cell_Height")
Cell_Background_Color = RSBODY("Cell_Background_Color")
Border_Size = RSBODY("Border_Size")
Border_Color = RSBODY("Border_Color")
%>
<%=RSBODY("Header")%>

<table border="0" cellpadding="0" cellspacing="0" align="center">
<tr>
<td align="center">

<table border="0" cellpadding="0" cellspacing="0" align="center">
<tr>
<td bgcolor="<%=Border_Color%>">

<table border="0" cellpadding="2" cellspacing="<%=Border_Size%>">
<tr>
<td align="center" bgcolor="<%=Weekday_Background_Color%>">" size="<%=Weekday_Font_Size%>" color="<%=Weekday_Font_Color%>"><%=Day(request("date"))%>. <%If (RSBODY("Abbreviate_Months") = True) Then%><%=MonthName(Month(request("date")), true)%><%Else%><%=MonthName(Month(request("date")))%><%End If%> , <%=Year(request("date"))%></td>
</tr>
<tr>
<td align="center" bgcolor="<%=Date_Background_Color%>">

<table border="0" cellpadding="0" cellspacing="2">
<%
eventEmpty = True

Set RSEVENT = Server.CreateObject("ADODB.RecordSet")
RSEVENT.Open "SELECT * FROM Events ORDER BY Date DESC", Conn, 1, 3
Do while NOT RSEVENT.EOF
rsdate = RSEVENT("Date")
If (Day(rsdate) = Day(request("date"))) AND (Month(rsdate) = CInt(Month(request("date")))) AND (Year(rsdate) = CInt(Year(request("date")))) Then
eventEmpty = False
%>

<tr>
<td><img src="../im/clear.gif" height="1" width="10"></td>
<td>

<%
Response.write "<a href=admin/edit.asp?ID="

%>
<%=RSEVENT("ID")%>
<%
Response.Write "&orderby=Date_Down&page=1&SearchFor=&SearchWhere=>"

%>

<%=FormatDateTime(rsdate, vbLongTime)%></a></td>
<td colspan="3">" size="<%=Event_Font_Size%>" color="<%=Event_Font_Color%>"><%=RSEVENT("Event_Name")%></td>
</tr>

<%
If (NOT isNull(RSEVENT("Location"))) Then
%>

<tr>
<td><img src="../im/clear.gif" height="1" width="10"></td>
<td>" size="<%=Event_Font_Size%>" color="<%=RSBODY("Link_Color")%>">
Kategori</td>
<td>" size="<%=Event_Font_Size%>" color="<%=Event_Font_Color%>"><%=RSEVENT("Category")%></td>
</tr>

<tr>
<td><img src="../im/clear.gif" height="1" width="10"></td>
<td>" size="<%=Event_Font_Size%>" color="<%=RSBODY("Link_Color")%>">Sted</td>
<td>" size="<%=Event_Font_Size%>" color="<%=Event_Font_Color%>">
<%=RSEVENT("Location")%></td>
</tr>

<tr>
<td><img src="../im/clear.gif" height="1" width="10"></td>
<td>" size="<%=Event_Font_Size%>" color="<%=RSBODY("Link_Color")%>">Sted</td>
<td>" size="<%=Event_Font_Size%>" color="<%=Event_Font_Color%>">
<%=RSEVENT("Location1")%></td>
</tr>

<tr>
<td><img src="../im/clear.gif" height="1" width="10"></td>
<td>" size="<%=Event_Font_Size%>" color="<%=RSBODY("Link_Color")%>">Sted</td>
<td>" size="<%=Event_Font_Size%>" color="<%=Event_Font_Color%>">
<%=RSEVENT("Location2")%></td>
</tr>

<%End If%>

<tr>
<td><img src="../im/clear.gif" height="1" width="10"></td>
<td>" size="<%=Event_Font_Size%>" color="<%=RSBODY("Link_Color")%>">Bus</td>
<td>" size="<%=Event_Font_Size%>" color="<%=Event_Font_Color%>"><%=RSEVENT("Buskorsel")%> 
" size="1" color="<%=Event_Font_Color%>">    bestilt:
 <%=RSEVENT("Busbestilt")%></td>
</tr>

<tr>
<td><img src="../im/clear.gif" height="1" width="10"></td>
<td>" size="<%=Event_Font_Size%>" color="<%=RSBODY("Link_Color")%>">
Instruktør(er) </td>
<td>" size="<%=Event_Font_Size%>" color="<%=Event_Font_Color%>"><%=RSEVENT("Instruktor")%> , <%=RSEVENT("Instruktor2")%> , <%=RSEVENT("Instruktor3")%></td>
</tr>

<tr>
<td><img src="../im/clear.gif" height="1" width="10"></td>
<td>" size="<%=Event_Font_Size%>" color="<%=RSBODY("Link_Color")%>">
Booket af</td>
<td>" size="<%=Event_Font_Size%>" color="<%=Event_Font_Color%>"><%=RSEVENT("Booket")%>" size="1" color="<%=Event_Font_Color%>">:" size="<%=Event_Font_Size%>" color="<%=Event_Font_Color%>"> " size="1" color="<%=Event_Font_Color%>">den <%=RSEVENT("Event_Booketden")%>" size="<%=Event_Font_Size%>" color="<%=Event_Font_Color%>"> </td>
</tr>

<tr>
<td valign="top"><img src="../im/clear.gif" height="1" width="10"></td>
<td valign="top">" size="<%=Event_Font_Size%>" color="<%=RSBODY("Link_Color")%>">
Bemærkning:</td>
<td valign="top">" size="<%=Event_Font_Size%>" color="<%=Event_Font_Color%>">
<%=RSEVENT("Description")%><hr></td>
</tr>

<% End If
RSEVENT.movenext
Loop
RSEVENT.close
%>
</table>

<%
If (eventEmpty = True) Then%>

" size="<%=Event_Font_Size%>" color="<%=Event_Font_Color%>">Der er i øjeblikket ingen aftaler denne dag.
<%End If%>

<form style="text-align: right">

<A HREF="java script:window.print()">
[Udskriv]<hr></a> 

</form> </td>
</tr>
</table>

</td>
</tr>
</table>

</td>
</tr>



<tr>
<td align="center"> 
</td>
</tr>

</table>

<%=RSBODY("Footer")%>
</body>
</html>

Synes godt om

thesurfer Nybegynder

26. december 2005 - 00:47 #8

gfg-pth>
1)
Du kan ikke bruge Response.write ="alert('Der skal bestilles en bus')"
For det første skal der ikke vøre et =
For det andet, skal det se sådan ud:
Response.write "<script type='text/JavaScipt'>alert('Der skal bestilles en bus');</script>"

2)
Som jeg skrev til dig i 25/12-2005 23:50:26, skal du bruge en id eller anden form for specifikation.. ellers henterne alle poster ud, og så skal du bruge en loop, for at køre alle posterne igennem..

3)
Skal du checke alle poster, eller kun 1 post?

/theSurfer

Synes godt om

gfg-pth Nybegynder

26. december 2005 - 11:15 #9

Tak for det indtil videre.
Jeg skal løbe alle id'erne i gennem i feltet busbestilt.
Så det bliver noget med et loop kan jeg forstå. Er det noget du kan sætte op til mig?

gfg-pth

Synes godt om

thesurfer Nybegynder

26. december 2005 - 12:51 #10

Det her spørgsmål er faktisk mere et ASP spørgsmål, ned Access..
Flyt det til: http://eksperten.dk/spm/Programmering/Script/ASP/

Flyt af spørgsmål:
1) Læg et svar (f.eks. "Flytter spørgsmålet")
2) Marker dit svar i boksen til venstre
3) Kontroller om dit svar er markeret
4) Husk at kontrollere om dit svar er markeret
5) Hvis dit svar er markeret, klik på Accepter-knappen.
6) Kontroller om dit svar er accepteret
7) Husk at kontrollere om dit svar er accepteret
8) Hvis dit svar er accepteret, forsæt til punkt 9, ellers fortsæt fra punkt 2 igen
9) Hvis alt er iorden, opret samme spørgsmål i den rette kategori. Læg evt et link til det nye spørgsmål, i dette spørgsmål.

/theSurfer

Synes godt om

gfg-pth Nybegynder

27. december 2005 - 19:12 #11

Flytter spørgsmålet

Synes godt om

mugs Novice

27. december 2005 - 19:14 #12

God ide :o)

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Access kurser

Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Se alle Access kurser

Flere spørgsmål fra Access kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Fjernadgang til Access app Af per2edb i Access	5	I går 08:21	I går 15:07
Filter der lister tomme felter Af per2edb i Access	3	26/08/202421:52	27/08/202415:20
Undgå skærm Filcker Af per2edb i Access	9	21/08/202415:14	22/08/202410:57
Usynlige tabeller, forespørgsler mm i Access Af sigyn i Access	4	18/07/202407:29	18/07/202410:32
Convertering af variabler Af per2edb i Access	2	30/06/202420:14	15 minutter siden

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS