Notifikationer

Markér alle som læst Log ud

jps6kb Novice

17. maj 2004 - 14:00 Der er 1 kommentar og
1 løsning

Fjerne elementer fra færdigt script

Hola!

Jeg har fundet det her script eller system. Kalender system vel nærmest.

Jeg vil gerne have at brugere kun skal indtaste navn og tlf. Alt andet som ex. pakke, email og kode mv. skal bare væk.
Jeg har prøvet i længe nu, men bliver ved med at få tilfældige fejl.

Kan i klare det ?

http://exp.kbang.dk/kalender.rar

Synes godt om

jps6kb Novice

18. maj 2004 - 08:23 #1

Slet ingen ?

Ka' da lige poste filerne om i er bange for vira eller ting ;)

resevationer.asp ->>>>>>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Resevation-dansk</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<div align="center">
 
:: <a href="../index.htm">Forsiden</a> :: <a href="login.asp">Log ind</a>
:: 

<%
DBQ=Server.MapPath("../kalender.mdb")
Set oConn = createObject("ADODB.Connection")
oConn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&DBQ

If Request.QueryString("dato")<>"" Then
dato = Request.QueryString("dato")
Set foddagbarn=oConn.Execute("Select * from kalender where dag="&day(dato)&" and mdr="&month(dato))
Else
dato=Request.Form("dato")
Set foddagbarn=oConn.Execute("Select * from kalender where dag="&day(dato)&" and mdr="&month(dato))

If Request.Form("navn")<>"" Then
If Request.Form("aar")<>"" Then
ip=Request.Form("ip")
pwd=Request.Form("pwd")
navn=Request.Form("navn")
adresse=Request.Form("adresse")
by_post=Request.Form("by_post")
tlf=Request.Form("tlf")
email=request.form("email")
menu1=Request.Form("menu1")
dag=Request.Form("dag")
mdr=Request.Form("mdr")
aar=Request.Form("aar")

If len(aar)=4 Then
'dato=dag&"-"&mdr&"-"&aar

set rs = oConn.Execute("select * from kalender where dag="& dag &" and mdr="& mdr &" and aar="& aar )
if rs.eof then
oConn.execute("Insert Into kalender (ip, pwd, navn, adresse, by_post, tlf, email, menu1, dato, dag, mdr, aar, oprettet) Values ('"& Request.ServerVariables("REMOTE_ADDR") &"', '"& pwd &"','"& navn &"', '"& adresse &"', '"& by_post &"', '"& tlf &"', '"& email &"', '"& menu1 &"', '"& dato &"', "& dag &", "& mdr &", "& aar &", '"& date() &"')")
else
'Dagen er booked
end if

Else
Fejl="Fyld Venligst alle felter med *."
End IF
Else
Fejl="Fyld Venligst alle felter med *."
End If
Else
Fejl="Fyld Venligst alle felter med *."
End If
End If
%>
<div align="center"><center>
<%
If not foddagbarn.EoF Then
%>
<table cellspacing="0" cellpadding="2" border="0" valign="top" style="border: 1px solid rgb(255,0,0)">
<%
Do while not foddagbarn.EoF
%>
<tr>
<td colspan="2"> Denne
dag er reseveret af <%=foddagbarn.Fields("navn")%>,
som vil flytte d.<%=foddagbarn.Fields("dato")%>
</td>
</tr>
<%
foddagbarn.MoveNext
Loop
%>
</table>
 
OBS: 
Schnefeldt reservationssystem v.1.0.1 
 
<%
End If
%>
<table cellspacing="0" cellpadding="2" border="0" valign="top" style="border: 1px solid rgb(0,0,0)">

<tr>
<td height="16" colspan="2"> <div align="center">Skriv
alt infomation med *
og tryk på Gem</div></td>
<td width="1"></td>
</tr>
<form action="resevationer.asp" method="post">
<tr>
<td width="100" height="26"> *Navn:</td>
<td width="169"> <INPUT type="text" name="navn">
<INPUT type="hidden" name="dato" value="<%=dato%>">
</td>
<td></td>
</tr>
<tr>
<td height="26" valign="top">*Adresse:</td>
<td valign="top"><INPUT name="adresse" type="text" id="adresse"></td>
<td></td>
</tr>
<tr>
<td height="26" valign="top">*By
& Postnr :</td>
<td rowspan="2" valign="top"> <input name="by_post" type="text" id="by_post"></td>
<td></td>
</tr>
<tr>
<td rowspan="2" valign="top">*Tlf:</td>
<td height="1"></td>
</tr>
<tr>
<td height="26" valign="top"><INPUT name="tlf" type="text" id="tlf"></td>
<td></td>
</tr>
<tr>
<td height="26" valign="top">Email:</td>
<td valign="top"><INPUT name="email" type="text" id="email"></td>
<td></td>
</tr>
<tr>
<td height="26" valign="top">*Kode:</td>
<td valign="top"> <INPUT name="pwd" type="password" id="pwd"></td>
<td></td>
</tr>
<tr>
<td rowspan="2" valign="top">*Pakke:</td>
<td height="28" valign="top"><select name="menu1" size="1" onChange="">
<option selected>Pakke 1</option>
<option>Pakke 2</option>
<option>Pakke 3</option>
<option>Pakke 4</option>
<option>Pakke 5</option>
<option>Pakke 6</option>
</select>  </td>
<td></td>
</tr>
<tr>
<td height="5"></td>
<td></td>
</tr>
<tr>
<td height="26" valign="top"> Flytte-Dato:
</td>
<td valign="top"> <INPUT type="text" size="3" name="dag" value="<%=Day(dato)%>" readonly>
-
<INPUT type="text" size="3" name="mdr" value="<%=Month(dato)%>" readonly>
-
<INPUT name="aar" type="text" value="<%=year(dato)%>" size="3">
</td>
<td></td>
</tr>
<tr>
<td height="28" colspan="2" align="right" valign="top">
<%If fejl<>"" Then Response.Write fejl End If%>
<INPUT type="submit" value="Gem" id=submit1 name=submit1>
<INPUT type="reset" value="Nulstil" id=Nulstil name=Nulstil>
</td>
<td></td>
</tr>
</form>
</table>
 
Email skal kun udfyldes vis du
ønsker bekræftelse ellers sker det over
tlf. 
</center></div>
 Advarsel:
Ip-logging er (Aktivitert)[<%=Request.ServerVariables("REMOTE_ADDR")%>],
alt misbrug vil omgående
meldels til politiet. 
 
<a href="resevation.asp">Tilbage</a></div>
</body>
</html>

Resevation.asp ->>>>>>>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Resevation-dansk</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>

:: <a href="../index.htm">Forsiden</a> :: <a href="login.asp">Log ind</a>
::
 <%
DBQ=Server.MapPath("../kalender.mdb")
Set oConn = createObject("ADODB.Connection")
oConn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&DBQ

dtmDate = Request.QueryString("date")
dtmToday = Date

If dtmDate = "" Then
dtmDate = Date
Else
dtmDate = CDate(dtmDate)
End if

intYear = Year(dtmDate)
strMonth = MonthName(Month(dtmDate))
intDayOfMonth = Day(dtmDate)
dtmFirstDate = DateAdd("d", (-intDayOfMonth)+1, dtmDate)
intFirstDay = Weekday(dtmFirstDate, vbMonday)
%>
</div>
<div align="center">
<table border="0" cellpadding="2" cellspacing="0" bgcolor="#FFFFFF"
style="border: 1px solid rgb(0,0,0)" valign="top">

<tr bgcolor="#FFFFFF">
<td colspan="7" align="center" valign="middle"><%=strMonth%> <%=intYear%></td>
</tr>
<tr>
<td align="center" bgcolor="#FFFFFF">Man</td>
<td align="center" bgcolor="#FFFFFF">Tir</td>
<td align="center" bgcolor="#FFFFFF">Ons</td>
<td width="22" align="center" bgcolor="#FFFFFF">Tor</td>
<td align="center" bgcolor="#FFFFFF">Fre</td>
<td align="center" bgcolor="#FFFFFF">Lør</td>
<td align="center" bgcolor="#FFFFFF">Søn</td>
</tr>
<%
For y = 1 to 6
If blnLast <> True Then
Response.Write "<tr>"
For x = 1 to 7
intLoopDay = intLoopDay + 1
If intLoopDay >= intFirstDay Then
dtmCurDate = DateAdd("d", intLoopDay-intFirstDay, dtmFirstDate)
If Month(dtmCurDate) = Month(dtmFirstDate) Then
Set foddagbarn=oConn.Execute("Select * from kalender where dag="&day(dtmCurDate)&" and mdr="&month(dtmCurDate))
If dtmCurDate = dtmToday Then
If Not foddagbarn.EoF Then
Response.Write "<td align=center bgcolor=#0000ff><a href=resevationer.asp?dato="&dtmCurDate&">" & Day(dtmCurDate) & "</a></td>"
Else
Response.Write "<td align=center bgcolor=#0000ff><a href=resevationer.asp?dato="&dtmCurDate&">" & Day(dtmCurDate) & "</a></td>"
End If
Else
If Not foddagbarn.EoF Then
Response.Write "<td align=center bgcolor=#ff0000><a href=resevationer.asp?dato="&dtmCurDate&">" & Day(dtmCurDate) & "</a></td>"
Else
Response.Write "<td align=center><a href=resevationer.asp?dato="&dtmCurDate&">" & Day(dtmCurDate) & "</a></td>"
End If
End If
blnLast = False
Else
Response.Write "<td align=center>-</td>"
blnLast = True
End If
Else
Response.Write "<td align=center>-</td>"
blnLast = True
End if
Next
End If
Next
Response.Write "</td></tr>"
%>
<tr>
<td height="23" colspan="3" bgcolor="#FFFFFF"><a
href="resevation.asp?date=<%=DateAdd("m",-1,dtmFirstDate)%>">Forrige</a></td>
<td valign="top" bgcolor="#FFFFFF"> </td>
<td bgcolor="#FFFFFF" colspan="3" align="right"><a
href="resevation.asp?date=<%=DateAdd("m",1,dtmFirstDate)%>">Næste</a></td>
</tr>
</table>
 
Se
<a href="infomationer.asp">Infomationer</a> før bestiling 
Klik på en dato for at Resevere</div>
<div align="center">
<table>
<tr>
<td bgcolor="#0000ff" align="center"> Dags
dato </td>
</tr>
<tr>
<td bgcolor="#ff0000" align="center"> Reseveret
</td>
</tr>
</table>
</div></TD>
</TR>
<TR>
</div>
</body>
</html>

--------------------------

Jeg er klar over stavefejlene i filnavnene, men det retter jeg bagefter... please someone help me...

Synes godt om

jps6kb Novice

28. maj 2004 - 13:48 #2

Lukker

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

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP	7	31/10/202610:20	01/11/202620:28
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58

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