Andrew Peace Wines

<%If Request("REQUEST_METHOD") = "POST" Then Process Sub Process() Dim definedlab(4), lab, name, xmlstr, xml,rndnum,gid For Each name In Request.Form xmlstr = xmlstr & " " & name & "=""""" Next Set xml = CreateObject("MSXML.DOMDocument") xml.loadXML "" For Each name In Request.Form xml.lastChild.Attributes.getnamedItem(name).Text = Request.Form(name) Next Set xml = hwa.Insert(xml,"{91F7AD29-1BD8-442B-A110-CDB0CE8E2566}") response.write "" response.End() End Sub %> Andrew Peace Wines