<% 'Response.Expires = -1 Response.Buffer = True '====================== Variables ================================== id = Request.Form("id") Submit = Request.Form("Submit") PostalCode = Request.Form("PostalCode") I = 0 For Each Item in Request.Form I=I+1 Next Dim arrForm() ReDim arrForm(1,I-1) I = 0 For Each Item in Request.Form arrForm(0,I) = Item 'Response.write(arrForm(O,I)) arrForm(1,I) = CleanUpString(Request(Item)) 'Response.write(" = " & arrForm(1,I)) 'Response.write("
") I=I+1 Next 'Response.write("
") set oConn = server.createobject("adodb.connection") oConn.open strConn '====================== DELETE ================================== If Submit = "Delete" Then sql = "DELETE FROM Retailers WHERE ID = " & id '====================== UPDATE ================================== Elseif Submit = "Save changes" then sql = "UPDATE Retailers " sql = sql & " SET " I=0 For Each Item in Request.Form If arrForm(1,I)<>"" AND arrForm(0,I)<>"id" AND arrForm(0,I)<>"Submit" Then sql = sql & arrForm(0,I) & "='" & arrForm(1,I) & "'," End If I=I+1 Next sql = Left(sql,Len(sql)-1) sql = sql & " WHERE ID = " & id '======================= ADD ================================== Elseif Submit = "Add record" Then sql = "SELECT Lon, Lat,State, City FROM Zips WHERE Zip='"& PostalCode & "'" set rs = oConn.execute(sql) Lon = rs.fields("Lon") Lat = rs.fields("Lat") State = rs.fields("State") City = rs.fields("City") sql = "INSERT INTO Retailers " sql = sql & " (City,State,Lon,Lat," I=0 For Each Item in Request.Form If arrForm(1,I)<>"" AND arrForm(0,I)<>"id" AND arrForm(0,I)<>"Submit" Then sql = sql & arrForm(0,I) & "," End If I=I+1 Next sql = Left(sql,Len(sql)-1) & ")" sql = sql & " VALUES ('"&City&"','"&State&"',"&Lon&","&Lat&"," I=0 For Each Item in Request.Form If arrForm(1,I)<>"" AND arrForm(0,I)<>"id" AND arrForm(0,I)<>"Submit" Then sql = sql & "'" & arrForm(1,I) & "'," End If I=I+1 Next sql = Left(sql,Len(sql)-1) & ")" End If 'response.write(sql) oConn.Execute sql, lRecs Set oConn = Nothing Response.Redirect("retail_view.asp") %>