God förmiddag wF!
Har lite problem med Datum i denna array nedan..
Har en formulärsida med 6st textfält som skickas till en sida som skriver in datan i DB'n. Ett fält är kommer att innehålla ett datum, resten kommer att innehålla en massa maträtter. Maträtterna splittas med ett "RETUR-slag" i textfälten.
Jag tänkte att man kanske kunde fylla i ett "startdatum", så ökar det med +1 för varje textfält som arrayen "går igenom", men som det är nu så blir daumet +1 för VARJE maträtt.. :(
Såhär blir resultatet nu:
Textfält1
Torsk (2002-10-04)
Pasta (2002-10-05)
Makaroner (2002-10-06)
Textfält2
Ärtsoppa (2002-10-07)
Fisk (2002-10-08)
Fläsk (2002-10-09)
MEN såhär vill jag att det ska se ut:
Textfält1
Torsk (2002-10-04)
Pasta (2002-10-04)
Makaroner (2002-10-04)
Textfält2
Ärtsoppa (2002-10-05)
Fisk (2002-10-05)
Fläsk (2002-10-05)
osv...
Här är koden som tar emot formulären...
Datums = request("Datum1")
strText = request.form("matratter")
strText = replace(strText, ",", "")
varArray = split (strText, vbCrLf)
Datums = CDate(Datums) -1
for i = 0 to ubound(varArray)
Datums = CDate(Datums) +1
SQL = "Insert Into RestaurangMatratt (RestaurangId, Datum, Matratt, Pris, AvhamtningsPris, Tillbehor1, Tillbehor2, Tillbehor3, Tillbehor4, Tillbehor5) "
SQL = SQL &"values ("& request("restid") &", '"& Datums &"', '" & LTrim(varArray(i)) & "', "& request("pris") &", "& request("avhpris") &", "
SQL = SQL & request("Tillbehor1") &", "& request("Tillbehor2") &", "& request("Tillbehor3") &", "& request("Tillbehor4") &", "& request("Tillbehor5") &")"
'databas.execute(SQL)
response.Write sql &"<br>"
next
Tack på förhand!