Hej! Har du testat om det funkar?Tabeller i layers
Jag undrar om detta kan funka i Calender.asp har jag i Macromedia Dreamweaver laggt in två layer brevid varandra i dom har jag en tabell som skall sortera ut tider från en access databas som skall uppdateras när datumet ändras i textfältet i calendern utan att behöva trycka på någon knapp.
Kod i calender.asp:
<FORM ACTION ="../tider.asp" METHOD= "POST" name= "calender" target=LFrame>
<INPUT type = TEXT NAME="textfield" size="12">
<INPUT TYPE = "SUBMIT" VALUE= "OK">
Här vill jag att när datumet ändras så körs Form Action eller?
Kod i tider.asp
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<div id="Layer1" style="position:absolute; left:7px; top:13px; width:153px; height:314px; z-index:1">
<%Response.Buffer=True
db= Server.MapPath("../../db/s2kb.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db%>
<%Set Rs = Server.CreateObject("ADODB.Recordset")
dim sSearchString
sSearchString = Request.Form("textfield")
sql = ("select * from tidserv where datum = '" & sSearchString & "'and sman1='1' order by tid asc")
Set rs = Conn.Execute(sql)
Response.write "<table width='100' celspacing='1' celpadding='1' align='center' border='0'>"
Do Until RS.EOF
Response.write "<Tr>"
Response.write "<Td>" & Rs("Tid") & "</Td>"
Response.write "</Tr>"
RS.MoveNext
Loop
RS.CLOSE
CONN.CLOSE
SET RS = NOTHING
SET CONN = NOTHING
Response.write "</Table>"
%>
</div>
</body>
</html>
Och skall lägga en tabell till brevid.
TobbeSv: Tabeller i layers
Sen hade jag justerat till koden lite såhär:
Kod i calender.asp:
<FORM ACTION ="../tider.asp" METHOD= "POST" name= "calender" target=LFrame>
<INPUT type = TEXT NAME="textfield" size="12">
<INPUT TYPE = "SUBMIT" VALUE= "OK">
Här vill jag att när datumet ändras så körs Form Action eller?
JAPP, när du klickar på submit-knappen så skickas du till sidan i action=""!
Kod i tider.asp
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<div id="Layer1" style="position:absolute; left:7px; top:13px; width:153px; height:314px; z-index:1">
<%
Option Explicit
Response.Buffer=True
Dim db, Conn, Rs
db = Server.MapPath("../../db/s2kb.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& db
Set Rs = Server.CreateObject("ADODB.Recordset")
Dim sSearchString
sSearchString = Trim(Replace(Request.Form("textfield"),"'","''"))
sql = ("select * from tidserv where datum = '" & sSearchString & "'and sman1='1' order by tid asc")
Set Rs = Conn.Execute(sql)
Response.write "<table width='100' cellspacing='1' cellpadding='1' align='center' border='0'>"
Do Until Rs.EOF
Response.write "<Tr>"
Response.write "<Td>" & Rs("Tid") & "</Td>"
Response.write "</Tr>"
Rs.MoveNext
Loop
Rs.CLOSE
CONN.CLOSE
SET Rs = NOTHING
SET CONN = NOTHING
Response.write "</Table>"
%>
</div>
</body>
</html>
Sen hade det varit "renare" i koden om du lägger div-ens värden mellan head-taggarna eller i egen css-mall.