Her kommer til koden i mit popupvindue.
Som I kan se sender jeg datoen til en aspside, som henter data i en database. Det fungerer fint. Jeg ønsker bare at den skal åbne asp-siden i mit "gamle" vindue, nemlig det vindue jeg oprindeligt aktiverede kalenderen i. Som sagt virker _parent ikke, den åbner bare siden i mit popupvindue. Håber det kan kaste lidt lys over min sikkert forvirrede beskrivelse.
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Kalender</title>
<STYLE>
body {
font-family: Arial;
font-size: 10 pt
}
h3 {
font-family: Arial;
font-size: 12 pt;
font-weight: normal;
background-color: #99ADC2;
}
A:link{
color:black;
text-decoration: none;
}
A:visited{
color:black;
text-decoration: none;
}
A:hover{
color:#516B86;
text-decoration: none;
}
</STYLE>
<script language="JavaScript"><!--
function onTop() {
self.focus();
setTimeout("onTop()",200);
}
onTop();
// -->
</script>
</head>
<body topmargin="10" leftmargin="10">
<%
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 align="center"><center>
<table cellspacing="0" cellpadding="2" border="0" valign="top"
style="border: 1px solid rgb(0,0,0)">
<tr>
<td colspan="7" align="center" valign="middle" bgcolor="#99ADC2"><font face="Verdana"
size="2" color="#ffffff"><strong><%=strMonth%> <%=intYear%></strong></font></td>
</tr>
<tr>
<td align="center"><font face="verdana" size="2">Man</font></td>
<td align="center"><font face="verdana" size="2">Tir</font></td>
<td align="center"><font face="verdana" size="2">Ons</font></td>
<td align="center"><font face="verdana" size="2">Tor</font></td>
<td align="center"><font face="verdana" size="2">Fre</font></td>
<td align="center"><font face="verdana" size="2">Lør</font></td>
<td align="center"><font face="verdana" size="2">Søn</font></td>
</tr>
<%
For y = 1 to 6
If blnLast <> True Then
Response.Write "<tr>"
For x = 1 to 7
Response.Write "<td align=center><font face=verdana size=2>"
intLoopDay = intLoopDay + 1
If intLoopDay >= intFirstDay Then
dtmCurDate = DateAdd("d", intLoopDay-intFirstDay, dtmFirstDate)
If Month(dtmCurDate) = Month(dtmFirstDate) Then
If dtmCurDate = dtmToday Then
Response.Write "<font color='#ff0000'><strong>"
End If
Response.Write "<a href='
http://minside.asp?Sog="Response.Write Month(dtmDate) & "/" & Day(dtmCurDate) & "/" & Year(dtmDate)
Response.Write "&Vis="
Response.Write Day(dtmCurDate) & "-" & Month(dtmDate) & "-" & Year(dtmDate)
Response.Write "'target='Nyt'>"
Response.Write Day(dtmCurDate)
Response.Write "</font></strong>"
Response.Write "</a>"
Response.Write "</td>"
blnLast = False
Else
Response.Write "</td>"
blnLast = True
End If
Else
Response.Write "</td>"
blnLast = True
End if
Next
End If
Next
Response.Write "</td></tr>"
%>
<tr>
<td bgcolor="#99ADC2" colspan="3"><font face="verdana" size="2"><b><a
href="kalender3.asp?date=<%=DateAdd("m",-1,dtmFirstDate)%>"><font color="#FFFFFF">Forrige</font></a></b></font></td>
<td bgcolor="#99ADC2"> </td>
<td bgcolor="#99ADC2" colspan="3" align="right"><font face="verdana" size="2"><b><a
href="kalender3.asp?date=<%=DateAdd("m",1,dtmFirstDate)%>"><font color="#FFFFFF">Næste</font></a></b></font></td>
</tr>
</table>
</center></div>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
