hi!

I hava a page that sends info from a form to excel.. Does anybody know how to make it send the info to an existing excel-model ?
Also, box4 and box5 contains from several rows.. can I make it write them out on seperate rows?

in the end is the code that writes it to excel..

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#adc5fb">
<!--connection.asp contains the OLEDB-connection string -->
<!-- #include file="connection.asp" -->
<%
'Check to see if title has been entered or not
TITLE=request.form("TITLE")
if TITLE = "" then
%>

<%
lngRecordNo = CStr(Request("FUNCTION_CODE"))
'Create an ADO connection object
Set Conn = Server.CreateObject("ADODB.Connection")
conn.open strFCConn
 
 
'Initialise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT descriptions.* FROM descriptions WHERE FUNCTION_CODE='" & lngRecordNo & "'" 
set rs=conn.execute(strsql)
%>
<!-- Input form area - This will only display when no Title has been entered -->
<table align="left">
<form method="POST" action="<%= request.servervariables("script_name") %>">
<input type="hidden" name="function_code" value="<%=lngRecordNo%>">
Document Title
<br>
<input type="text" name="TITLE" size="35">
<br><br>
Description
<br>
<input type="text" name="box1" value="<%=rs("function_code")%>" size="10">
<input type="text" name="description" size="50" value="<%=rs("description")%>">
<br>
Headers

<%
'Initialise the strSQL variable with an SQL statement to query the database
strSQL2 = "SELECT query1.* FROM query1 WHERE FUNCTION_CODE='" & lngRecordNo & "'" 
set rs=conn.execute(strsql2)
%>
 
<input type="hidden" name="function_code" value="<%=lngRecordNo%>">
<%
'Loop through the information until the end
Do Until rs.EOF
 Response.Write("<TR>")
 'Link to next file (for each row) and pass on the FUNCTION_CODE
 
 intI = intI + 1
 'Show every second row in grey/white
 If intI Mod 2 = 1 Then
  strTD = "<TD Class=ListWS>"
 Else
  strTD = "<TD>"
 End If
%>
 

<input type="text" name="box4" value="<%=rs("header")%>" size="20">
<input type="text" name="box5" size="10">
<input type="text" name="box6" size="10" value="<%=rs("unit")%>">
<br>
<%
 Response.Write("</TR>")
 ' Goto next row
 rs.MoveNext
Loop
' Close the table
Response.Write "</TABLE>"
%>

<input type="submit" value="Create excel-file" ></p>
 
 
</form>

<%
rs.Close
   conn.Close
   Set conn = Nothing
else
' If there is a user inputted title
' get all of the user inputed values
TITLE=request.form("TITLE")
description=request.form("description")
box1=request.form("box1")
box4=request.form("box4")
box5=request.form("box5")
box6=request.form("box6")

' Varible created fo excel file name. Speces are changed to underscores
' and later the current date is added in attempts to create a unique file
' Users are not prevented from entering characters !@#$%^&*()+= that are 
' invlaid file names in this example
g_filename=replace(TITLE," ","_")

set fso = createobject("scripting.filesystemobject")
' create the text (xls) file to the server adding the -ddmmyyyy after the g_title value
Set act = fso.CreateTextFile(server.mappath(""&g_filename & "-"& day(date())& month(date())& year(date()) &".xls"), true)
' write all of the user input to the text (xls) document 
' The .xls extension can just as easily be .asp or .inc whatever best suits your needs
' Providing that you remove the info contained in the header and remove the xml
' reference in the html tag that starts the page/excel file. It is to add gridlines and
' a title to the excel worksheet
act.WriteLine "<html xmlns:x=""urn:schemas-microsoft-com:office:excel"">"
'act.WriteLine "<head>"
'act.WriteLine "<!--[if gte mso 9]><xml>"
'act.WriteLine "<x:ExcelWorkbook>"
'act.WriteLine "<x:ExcelWorksheets>"
'act.WriteLine "<x:ExcelWorksheet>"
'act.WriteLine "<x:Name>"& TITLE &"</x:Name>"
'act.WriteLine "<x:WorksheetOptions>"
'act.WriteLine "<x:Print>"
'act.WriteLine "<x:ValidPrinterInfo/>"
'act.WriteLine "</x:Print>"
'act.WriteLine "</x:WorksheetOptions>"
'act.WriteLine "</x:ExcelWorksheet>"
'act.WriteLine "</x:ExcelWorksheets>"
'act.WriteLine "</x:ExcelWorkbook>"
'act.WriteLine "</xml>"
'act.WriteLine "<![endif]--> "
act.WriteLine "</head>"
act.WriteLine "<body>"
act.WriteLine "<table>"
act.WriteLine "<tr>"
act.WriteLine "<td>"
act.WriteLine box1
act.WriteLine "</td>"
act.WriteLine "<td>"
act.WriteLine description
act.WriteLine "</td>"
act.WriteLine "</table>"
act.WriteLine "<table>"
act.WriteLine "<td>"
act.WriteLine "</td>"
act.WriteLine "<td>"
act.WriteLine "</td>"
act.WriteLine "<td>"
act.WriteLine box4
act.WriteLine "</td>"
act.WriteLine "<td>"
act.WriteLine box5
act.WriteLine "</td>"
act.WriteLine "<td>"
act.WriteLine box6
act.WriteLine "</td>"
act.WriteLine "<td>"
act.WriteLine "</table>"
act.WriteLine "</body>"
act.WriteLine "</html>"
' close the document 
act.close
%>
Your excel file has been successfully create and can be viewed by clicking 
<a href="<%= g_filename &"-"& day(date())& month(date())& year(date()) %>.xls" target="_blank">here</a>
<%
 
' end check of form input
end if
%>
</body>
</html>