asked on
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Connections/flagfootball.asp" -->
<%
Dim rshilliardmicroschedule
Dim rshilliardmicroschedule_cmd
Dim rshilliardmicroschedule_numRows
Set rshilliardmicroschedule_cmd = Server.CreateObject ("ADODB.Command")
rshilliardmicroschedule_cmd.ActiveConnection = MM_flagfootball_STRING
rshilliardmicroschedule_cmd.CommandText = "SELECT * FROM hilliardmicroschedule"
rshilliardmicroschedule_cmd.Prepared = true
Set rshilliardmicroschedule = rshilliardmicroschedule_cmd.Execute
rshilliardmicroschedule_numRows = 0
Dim i, vardate, vartime, hometeam, awayteam, varfield, timeampm, tfhourtime
For i = 1 To 5
vardate = "vardate" & i
vartime = "vartime" & i
timeampm = "timeampm" & i
hometeam = "hometeam" & i
awayteam = "awayteam" & i
varfield = "varfield" & i
If Request.Form(timeampm) = "AM" Then
tfhourtime = Request.Form(vartime)
End if
If Request.Form(timeampm) = "PM" Then
tfhourtime = DATEADD("hh",12,request.form(vartime))
End if
response.write (tfhourtime)
If Request.Form(vardate) <> "" Then
'Insert the schedule entered
Call sAddSchedule(Request.Form(vardate), Request.Form(vartime), Request.Form(hometeam), Request.Form(awayteam), Request.Form(varfield))
End If
Next
Dim league
league = (request.form("league"))
response.write (league)
Sub sAddSchedule(pvardate, pvartime, phometeam, pawayteam, pfield)
Set cinsert = Server.CreateObject ("ADODB.Command")
cinsert.ActiveConnection = MM_flagfootball_STRING
cInsert.CommandText = "INSERT INTO [" & league & "] ( vardate, vartime, varhome, varaway, varfield) VALUES ( ?, ?, ?, ?, ? ) "
cInsert.Parameters.Append cInsert.Createparameter("date", adVarchar, adParamInput,10,pvardate)
cInsert.Parameters.Append cInsert.Createparameter("time", adVarchar, adParamInput,10,pvartime)
cInsert.Parameters.Append cInsert.Createparameter("hometeam", adVarchar, adParamInput,50,phometeam )
cInsert.Parameters.Append cInsert.Createparameter("awayteam", adVarchar, adParamInput,50,pawayteam)
cInsert.Parameters.Append cInsert.Createparameter("field", adVarchar, adParamInput,100,pfield)
cinsert.CommandType = 1
cinsert.CommandTimeout = 0
cinsert.Prepared = true
cinsert.Execute()
End Sub
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
<style type="text/css">
<!--
body {
font: 100% Verdana, Arial, Helvetica, sans-serif;
background: #666666;
margin: 0; /* it's good practice to zero the margin and padding of the body element to account for differing browser defaults */
padding: 0;
text-align: center; /* this centers the container in IE 5* browsers. The text is then set to the left aligned default in the #container selector */
color: #000000;
}
.oneColFixCtrHdr #container {
width: 780px; /* using 20px less than a full 800px width allows for browser chrome and avoids a horizontal scroll bar */
background: #FFFFFF;
margin: 0 auto; /* the auto margins (in conjunction with a width) center the page */
border: 1px solid #000000;
text-align: left; /* this overrides the text-align: center on the body element. */
}
.oneColFixCtrHdr #header {
background: #DDDDDD;
padding: 0 10px 0 20px; /* this padding matches the left alignment of the elements in the divs that appear beneath it. If an image is used in the #header instead of text, you may want to remove the padding. */
}
.oneColFixCtrHdr #header h1 {
margin: 0; /* zeroing the margin of the last element in the #header div will avoid margin collapse - an unexplainable space between divs. If the div has a border around it, this is not necessary as that also avoids the margin collapse */
padding: 10px 0; /* using padding instead of margin will allow you to keep the element away from the edges of the div */
}
.oneColFixCtrHdr #mainContent {
padding: 0 20px; /* remember that padding is the space inside the div box and margin is the space outside the div box */
background: #FFFFFF;
}
.oneColFixCtrHdr #footer {
padding: 0 10px; /* this padding matches the left alignment of the elements in the divs that appear above it. */
background:#DDDDDD;
}
.oneColFixCtrHdr #footer p {
margin: 0; /* zeroing the margins of the first element in the footer will avoid the possibility of margin collapse - a space between divs */
padding: 10px 0; /* padding on this element will create space, just as the the margin would have, without the margin collapse issue */
}
-->
</style></head>
<body class="oneColFixCtrHdr">
<div id="container">
<div id="header">
<h1 align="center">Update Add Schedule</h1>
<!-- end #header --></div>
<div id="mainContent">
<h1> </h1>
<!-- end #mainContent --></div>
<div id="footer">
<p> </p>
<!-- end #footer --></div>
<!-- end #container --></div>
</body>
</html>
<%
rshilliardmicroschedule.Close()
Set rshilliardmicroschedule = Nothing
%>