<%
if request("parent")="modulo" then
'Create File System Object
' Set Fso = CreateObject("Scripting.FileSystemObject")
'path to folder to be written to
' FileName = Server.MapPath("/_private/lista-users.csv")
'create the file to write to
' Set txtStream = Fso.OpenTextFile(FileName, 8, True)
' Write to the file
' txtStream.WriteLine _
'
' """" & request("name") & """,""" &_
' request("surname") & """,""" &_
' request("email") & """,""" &_
' request("position") & """,""" &_
' request("D1") & """,""" &_
' request("institution") & """,""" &_
' request("D3") & """,""" &_
' request("age") & """,""" &_
' request("gender") & """,""" &_
' request("city") & """,""" &_
' request("country") & """,""" &_
' request("B1") & """"
' txtStream.Close
'
' 'sendmail
Msender="moldraw@unito.it"
Mrecipient = "piero.ugliengo@unito.it"
Msubject = "MOLDRAW form updated"
Mbody = Mbody & "name: "&request("name") & VBcrlf
Mbody = Mbody & "surname: " & request("surname")& VBcrlf
Mbody = Mbody & "email: " & request("email") & VBcrlf
Mbody = Mbody & "position: " & request("position") & VBcrlf
Mbody = Mbody & "institution: " & request("institution") & VBcrlf
Mbody = Mbody & "age: " & request("age") & VBcrlf
Mbody = Mbody & "gender: " & request("gender") & VBcrlf
Mbody = Mbody & "city: " & request("city") & VBcrlf
Mbody = Mbody & "country: " & request("country") & VBcrlf
DIM iMsg, Flds, iConf
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
'response.write Mrecipient
With iMsg
Set .Configuration = iConf
.To = Mrecipient
.From = Msender
.Subject = Msubject
.TextBody = Mbody
' .Send
End With
'redirect to dowload
response.Redirect("download_vero.htm")
end if
%>
Download MOLDRAW and related libraries
In order to download MOLDRAW and related structural libraries the
following form has to be filled. No request of money will be ever done: it
will allow to keep track of the MOLDRAW users to keep them informed about new
options and bugs fixing. Thank you for your patience!