|
now i am supposed to append my records and overwrite them into text files...thru website...using asp..how can i go about doing that?...
beside that...once the text files is being created i need to name them as year and quarter...
|
|
|
hi ger...
first, create feedback.html which contains...
<form name=form1 method=post action="/forum/feedbackprocess.html">
<input type="text" name="t1" size="60" maxlength="50">
<input type="text" name="t2" size="60" maxlength="50">
<input type="text" name="t3" size="60" maxlength="50">
<input type="text" name="t4" size="60" maxlength="50">
<input type="text" name="t5" size="60" maxlength="50">
<input type="text" name="t6" size="60" maxlength="50">
<input type="submit" name="Submit" value="Send Form">
</form>
in feedbackprocess.asp
<%
ipaddress = Request.ServerVariables("REMOTE_ADDR")
submission = "Date Time Submission : " & now()
ipaddress = "IP Address : " & ipaddress
name = "Name : " & Request.Form("t1")
company = "Company Name : " & Request.Form("t2")
phone = "Phone Number : " & Request.Form("t3")
mobile = "Mobile Number : " & Request.Form("t4")
fax = "Fax Number : " & Request.Form("t5")
email = "E-Mail : " & Request.Form("t6")
comments = Request.Form("t7")
myStr = submission & vbCrLf & ipaddress & vbCrLf _
& name & vbCrLf & company & vbCrLf _
& phone & vbCrLf & mobile & vbCrLf _
& fax & vbCrLf & email & vbCrLf _
& "Comments :" & vbCrLf & comments & vbCrLf _
& "*******************************************"
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
`path of text file
fileLocation ="C:\TextASP\FEEDBACK\"
fType ="/forum/.txt"
fileName = fileLocation & cstr(year(date) & month(date)) & fType
If (fs.FileExists(fileName))=true Then
set fn=fs.OpenTextFile(fileName,8,true)
fn.WriteLine (myStr)
Else
set fn=fs.CreateTextFile(fileName,true)
fn.WriteLine (myStr)
End If
Response.Write "Your feedback had been received...<br><br>"
Response.Write "Feel free to visit http://www.vss.com.my again. <br><br>"
Response.Write "Best Regards,<br>"
Response.Write "Virtual Softnet Solutions Sdn Bhd<br>"
Response.Write "MALAYSIA<br>"
set f=nothing
set f=nothing
set fs=nothing
%>
|
|
|
opsss...
missing some code in feedback.html
please use this code below to call
file feedbackprocess.asp
<form name=form1 method=post action="/forum/feedbackprocess.html">
<input type="text" name="t1" size="60" maxlength="50">
<input type="text" name="t2" size="60" maxlength="50">
<input type="text" name="t3" size="60" maxlength="50">
<input type="text" name="t4" size="60" maxlength="50">
<input type="text" name="t5" size="60" maxlength="50">
<input type="text" name="t6" size="60" maxlength="50">
<input type="text" name="t7" size="60" maxlength="50">
<input type="submit" name="Submit" value="Send Form">
</form>
|
|
|
|
|
|
|
|