選択したタイプに応じてファイル名が設定された xml ファイルを作成したいと思います。
If type.Value = "H" Then
fileName = "Hotels.xml"
ElseIf type.Value = "F" Then
fileName = "Flights.xml"
ElseIf type.Value = "T" Then
fileName = "Tours.xml"
End If
xmlFile = Server.MapPath("") + "/files/" + fileName
DT.WriteXml(xmlFile, XmlWriteMode.DiffGram)
しかし、fileName は、値が割り当てられる前に「変数 fileName が使用されています。xmlFileの部分を条件の一番上に変更してみましたが、やはり同じです。